Perl Problem mit Hashes