S:while(<DATA>){%d=();while(/(\d)/g){if($d{$1})
{print "DUP: $1 in $_";next S}$d{$1}=1}} 

__DATA__
12345
012345
894376
3885437
98374
30924
03284098325
094385098432
74362
876543
4456789