sub uni{
    my ($s) = shift;
    my @a;
    for $i (0..9) {
        $j = int(substr($s,$i,1));
        if ($a[$j]) {return( 0 )};
        $a[$j] = 1;}
    return 1; }

 print uni("1902356784");