my %newhash = %hash;
delete @newhash{grep !/^t/, keys %newhash};