Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
my @picks = grep {my %d; map {$d{$_}++} split ''; grep {$_ == 2} value
+s %d} @nums;

print join "\n", @picks;

Select or download this
```
1001
1002
...
9986
9987
9988
```