use strict;
use warnings;
use Safe;
use Data::Dumper;

open my $fh, '<', 'hashref.txt' or die $!;
my $input = do { local $/; <$fh> };
close $fh;

my $sandbox = Safe->new;
my $hashref = $sandbox->reval($input);
die $@ if $@;

print Dumper($hashref);