my %newhash = map{$_, $hash{$_}} grep{/^t/} keys %hash;