Select Code to Download

print pairwise{ no warnings 'once'; "$a $b\n" } @nums, @dat;

my $ea = each_array( @nums, @dat );
while( my( $n, $d ) = $ea->() ) {
    print "$n $d\n";
}