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