use Data::Dumper;

...
clean_hash();
print STDERR Dumper(\%hash);
...