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

##</code><code>##

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

##</code><code>##

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