Select Code to Download

my %hash;
for ( readdir DIR ) # or wherever your filenames come from.
...
  }
}

for my $key ( sort keys %hash )
{
...
  }
}