Select Code to Download

my @dlcopy = @dir_list ;
my @extensions = qw(zip log whatever) ;
...
    $matches{$ext} = $matching ;
  }
}