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