Ich vermute heute etwas ins blaue ;)

Anstatt &test(%hash);
&test(\%hash);
und in test den als Referenz Hash übernehmen.

In solche Fällen bemühe ich den Code-Debugger in Perl und lasse mir diverse Sachen darin anzeigen.
Oder nutze gleiche ein Perl-Entwicklungssystem wie OptiPerl