Perl hashing fixed again