my %hash2 = map  {$_ => $hash{$_}}
              grep {/^\d+_\d+$/}
              keys %hash;