foreach my $file_name (key (%dat_mapping)) {
    print "blah\n";
}