for $i (0 .. $#origarray) { push @temparray, $origarray[$i][4]; } @sorted = @origarray[ sort { $temparray[$b] cmp $temparray[$a] } 0 .. $#temparray ];