#!/usr/bin/perl
use strict;
use warnings;

my %dat_mapping = (foo => 1, bar => 2);
my %eng_mapping = (FOO => 3, BAR => 4);

my $hash_name = "dat";

for my $file_name (keys %{ $hash_name eq 'dat' ? \%dat_mapping
                                               : \%eng_mapping } ) {

            print "$file_name\n";
}