use strict;
use Sort::Fields;
use Data::Dumper;

open (INP,"data.txt") || die "cant open data.txt !";
my @data = <INP>;
chomp (@data);

print "before sorting...\n";
print Dumper @data;

my @sorted = fieldsort '\t', [10], @data;

print "\nafter sorting\n";
print Dumper @sorted;