if(scalar keys %HASH <= $keep) {