I have a feeling that %hash is a my() variable and your clean_hash routine isn't in its scope. Are you using strict?

The easier way to clear a hash is to say: %hash = ();