johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
my @notOnes = ( 0, 2 .. 9 );
my $globStr = ( q|{| . join( q{,}, @notOnes ) . q|}| ) x 3 . q{1};
say for grep { ! m{(.).*\1} } glob $globStr;' | wc -l
504

##</code><code>##

johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -E '
my @notOnes = ( 0, 2 .. 9 );
my $globStr = ( q|{| . join( q{,}, @notOnes ) . q|}| ) x 3 . q{1};
warn qq{$globStr\n};
say for grep { ! m{(.).*\1} } glob $globStr;' | wc -l
{0,2,3,4,5,6,7,8,9}{0,2,3,4,5,6,7,8,9}{0,2,3,4,5,6,7,8,9}1
504