cat foo.pl
{
use strict;
use warnings;
use Data::Dumper;
my %memory;
sub each_array(\@;\@\@\@\@\@){ 略 }
my @arr = 1,2,3,4,5 ;
my @arr2 = 6,7,8,9,10;
while(my(@array_line) = each_array @arr, @arr2){ print Dumper \@array_line}
}
perl foo.pl
Useless use of a constant (2) in void context at foo.pl line 20.
Useless use of a constant (3) in void context at foo.pl line 20.
Useless use of a constant (4) in void context at foo.pl line 20.
Useless use of a constant (5) in void context at foo.pl line 20.
Useless use of a constant (7) in void context at foo.pl line 21.
Useless use of a constant (8) in void context at foo.pl line 21.
Useless use of a constant (9) in void context at foo.pl line 21.
Useless use of a constant (10) in void context at foo.pl line 21.
$VAR1 = [
1,
6
];