my %hash = ('digest'=>$digest, 'entry'=>$entry);
my $hashref = \%hash;
print ref $hashref, "|";
push @out, $hashref;
print ref $out[$#out], "|$out[$#out]";