Select Code to Download

use IO::Handle;
my $infile= "input.txt";
...
close $in;
# ... sort code here ...
print $out @list;