my @keep;
while ( chomp(my $num = <DATA>) ) {
   for ( split //, $num ) {
      my @a = ($num =~ m/$_/g);             #count occurances
      if (@a>1) { push @keep, $num; last; } #keep if more than one
   }
}