delete @hash{grep !/\d+_\d+/, keys %hash};