for my $c(1..16)

##</code><code>##

while (<>) {
	chomp;
	my @s = split /\t/,$_;
	push @input ,\@s;
}

##</code><code>##

$output[$_][$c] = $x++ for sort { $input[$b][$c] <=> $input[$a][$c] } 0 .. $#input;