In case anyone has an opinion :) here is how I completed the code. Probably not the best way, but it works for what I want. I installed the following lines before the orignal snippet I sent.

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