delete $hash{ scalar each %hash } while $n < keys %hash;