Select Code to Download

my @size= map 0 + ( split /\t/, $_ )[2], @in;
#             ^^^ store numbers not strings
my @idx= sort { $size[$a] <=> $size[$b] }, 0..$#in;
@in= @in[@idx];

for( @idx ) {
    print $in[$_], $/;
}