foreach (keys %hash) {
    delete($hash{$_}) if ($_ !~ /\d+_\d+/);
}