Select Code to Download

       if ($file =~ /$key/) {
           $mapattach = $value;
           use Data::Dumper;
           print Dumper \%CONFIG_FILE;
        }

       if ($file =~ /$key/) {
           $mapattach = $value;
...
           print Dumper \%CONFIG_FILE;
           print "'$file' matches /$key/, setting value '$value'\n";
        }