Select Code to Download

/^(\d)(?!\d*\1)(\d)(?!\d*\2)(\d)(?!\d*\3)\d$/;

use warnings;
use strict;
for my $one (0 .. 3) {
...
        }
    }
}

0123
0132
0213
...
3120
3201
3210