$ test.pl
           Rate regex  hash
regex 1048218/s    --   -0%
hash  1048218/s    0%    --

$ test.pl
           Rate regex  hash
regex 1047449/s    --   -1%
hash  1059547/s    1%    --

$ test.pl
           Rate  hash regex
hash  1043950/s    --   -1%
regex 1054296/s    1%    --

##</code><code>##

use Time::HiRes;
use Benchmark ':all';

sub regex {  
   my @keep;
   foreach my $num (@data) {
      chomp;
      for ( split //, $num ) {
         my @a = ($num =~ m/$_/g);
         if (@a == 2) { push @keep, $num; last; }
      }
   }
}

sub hash {
   my @keep;     # numbers to keep
   foreach my $line (@data) {
       chomp;
       my %count;
       ++$count{$_} for split '', $line;
       push @keep, $line if grep { $_ == 2 } values %count
   }
}

my @data = <DATA>;

cmpthese ( 1_000_000, {
   hash  => 'hash()',
   regex => 'regex()',
});