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]
