sub f2a { my ($f) = @_; for my $d ("$f") {return $d} } sub f2b { my ($f) = @_; for my $d ($f) {return $d} } print map {f2a($_)} qw(x y z); # zzz print map {f2b($_)} qw(x y z); # xyz