Help for this page

Select Code to Download


  1. or download this
    
sub each_array (\@;\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@)
...
    return each_arrayref(@_);
}
  2. or download this
        my $ea = each_array(@a, @b, @c);
    while ( my ($a, $b, $c) = $ea->() )   { .... }