#tiny.pl
#!/home/utils/perl5/perlbrew/perls/5.24.2-021/bin/perl

use strict;
use warnings;
use Path::Tiny qw( path );
use Data::Dumper;

#my $file = 'file.pl';
my $file = \<<'file_end';   # Simulate disc file for post
%hash1 = (hello => 1,
          hi =>2   );
file_end


my %hash1;
open(my $fh, '<', $file) or die "Could not open file $file";
local undef $/;
eval( <$fh> );
close $fh;


print Dumper(\%hash1);


>perl tiny.pl
$VAR1 = {
          'hi' => 2,
          'hello' => 1
        };