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

##</code><code>##

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