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);