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

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