Select Code to Download

my %extensions;
for my $file (sort @files) {
...
while (my ($key,$value) = each %extensions) {
  print $key." - ".$value."\n";
}