C:\ce3\bin>perl -w my @list = qw(abc2 abc3 abc1 abc0); my @list2 = map { my $r = reverse($_); $r } @list; # scalar context print "@list2"; ^Z 2cba 3cba 1cba 0cba C:\ce3\bin>