Help for this page
push @array, reverse @array[ $n > 2 ? 0 .. $n / 2 - 1 : 0 ];
push @arr, $#arr < 1 ? () : reverse @arr[ 0 .. ($#arr % 2 ? $#arr : $# +arr - 1)];