for(1..1e4){%c=();print"$_\n"if(grep(!$c{$_}++,$_=~/.{1}/g)==2)}