use warnings;

my @v1 = qw(4 0 0 3);
my @v2 = qw(4 0 0 3);

INIT {
        require List::MoreUtils;
        my $ea = List::MoreUtils::each_array(@v1, @v2);
        while (my ($v, $t) = $ea->())
        {
        }
}