#file.pl : my %hash1 = (hello => 1,
          hi =>2   );

#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';

open(my $fh, '<', $file) or die "Could not open file $file";
eval($fh);
close $fh;

print Dumper(\%hash1);