open(FH, "hash.txt");
my @hash = <FH>;
close FH;

my $object;
my $list = '$object =' . "@hash";
eval ($list);

#!/usr/bin/perl

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

my $hashref = do "hashref.txt";
print Dumper $hashref;

#!/usr/bin/perl

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

my @lines = <DATA>;
my $hashref = eval join '', @lines;
print Dumper $hashref;

__DATA__
{
Klaus => 'daheim',
Peter => 'unterwegs'
}

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

while (<DATEI>) {
   my ($key, $value) = split(/\s*=>\s*/, $_, 2);
   $vars{$key} = $value;
}

	unless ($return = do $file) {
	    warn "couldn't parse $file: $@" if $@;
	    warn "couldn't do $file: $!"    unless defined $return;
	    warn "couldn't run $file"       unless $return;
	}