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