in reply to Re^4: print a hash ref
in thread print a hash ref

You should not have 114 prints.

Try replacing them with a loop around a single print:

print "$key : $hash{key}\n" for (keys %hash)

In Section Seekers of Perl Wisdom