delete @hash{ grep !m/a/, keys %hash };