1 3 4 5
5 1 2 4   sorting on the second column (or array [ ][ ]);

##</code><code>##

5 1 2 4
1 3 4 5

##</code><code>##

 @temp = [sort {$b cmp$a} @{$array [ ]}];