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]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.