delete@h{grep!/^t/,%h};