Help for this page
sub arrloop { my ($arrays, $code) = @_; ... $code->(map { $_->[$i] } @$array); } }
arrloop [\@first, \@middle, \@last], sub { my ($first, $middle, $last) = @_; print "Hello $first $middle $last\n"; }
www.com | www.net | www.org
No recent polls found