my @array = qw/ 1 2 3 4 5 /; my @new_array = sort { $a++ <=> $b-- } @array;