map2 sub { print "$a $b" }, qw[A B C D];