C:\ce3\bin>perl -w my @list = qw(abc2 abc3 abc1 abc0); my @list2 = map { reverse($_) } @list; print "@list2"; ^Z abc2 abc3 abc1 abc0