map_pairs { $a } qw/a b c d/; # ac
map_pairs { $b } qw/a b c d/; # bd
map_pairs { uc($a),lc($b) } qw/a b c d/; # AbCd