てか
print join( "\n", %hash, "\n");

デバッグ目的なら
use Data::Dumper;
print Dumper( \%hash );