my %hash2 = @hash{ grep /\d+_\d+/, keys %hash };