my %CONFIG_PARAMS;
 
my $mapattach;

while (my ($key , $value) = each(%CONFIG_PARAMS)) {
    if ($file =~ /$key/) {
        $mapattach = $value;
    }
}

unless (defined $mapattach)  {
    Println "WARN : Ignoring $file, not found in the config file";
}