I test this and it works, there must be some other way, but i am only a newbie on perl,
> mysub(@a, @b, @c); mysub("@a", "@b", "@c"); > sub mysub > { my @a = ? #arg1 an array $_[0] is not working > my @b = ? arg2 another array $_[1] is not working > my @c = ? arg3 another array $_[2] is not working > } > sub mysub { my @a = shift; my @b = shift; my @c = shift; } Saludos -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]