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