my @keep;     # numbers to keep
while(chomp( my $line = <NUMBERS> ) ) { 
    my %count;
    ++$count{$_} for split '', $line;
    push @keep, $line if grep { $_ == 2 } values %count
}