push @array, reverse @array[ 0 .. int( $n / 2 ) - 1 ];