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