Try this?:

push @array, reverse @array[ $n > 2 ? 0 .. $n / 2 - 1 : 0 ];
[download]

Edit: no, try this:

push @arr, $#arr < 1 ? () : reverse @arr[ 0 .. ($#arr % 2 ? $#arr : $#
+arr - 1)];
[download]