I *think* you're simply after....

my $n = 2; # sort on 3rd item 
my @sorted = sort {$array[$a][$n] cmp $array[$b][$n]} 0..$#array;
foreach (@sorted) {
    print $array[$_][0],"<br>";
    print $array[$_][1],"<br>";
    # etc.
}
[download]

Cheers, Ben.