Select Code to Download

use strict;     # a good idea
use warnings;   # and another
...
close ($in);

my @sorted = sort @unsorted;