map2{ print $a, $b; } qw[a b c d];