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