Select Code to Download

for my $c(1..16)

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

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