Select Code to Download

    for ( sort { $data[$a]->[2] <=> $data[$b]->[2] } 0 .. $#data ) {
        print join "\t" , @{ $data[$_] };
        print "\n";
    }

print join("\t",@$_),"\n" for sort { $a->[2] <=> $b->[2] } @data;

print join "\n",map { join "\t",@$_ } sort { $a->[2] <=>$b->[2] } @dat
+a;