$t.=0,$c.=int rand 10 for 1..pop;($m)="$t-$c"=~/^(.*).*-\1/,(substr$t,length$m,1)++,print"$t\n"until$t eq$c