##
#!/usr/bin/perl
use strict;
use warnings;
require List::MoreUtils;
# use List::MoreUtils ();
my @v1 = qw(4 0 0 3);
my @v2 = qw(4 0 0 3);
my $ea = List::MoreUtils::each_array(\@v1, \@v2);
while (my ($v, $t) = $ea->())
{
print "$v => $t\n";
}
##
##
4 => 4
0 => 0
0 => 0
3 => 3