my @array = qw/one two three/; my @out = reverse @array; # or @out = (@out, reverse @array);