open my $rh, '<', $filename or die "open($filename,r) failed: $!";
my %name;
eval do { local $/; <$rh> };
close $rh;

print Data::Dumper->Dump( [ \%name ], [ '*name_it' ] );