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

Going to see if merlyn's example works on my version of Perl... Oh neat, it does. I think his trumps mine by a bit.