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.
}