Select Code to Download

sub f2a {
my ($f) = @_;
...

print map {f2a($_)} qw(x y z); # zzz
print map {f2b($_)} qw(x y z); # xyz