use warnings;
use strict;
for my $one (0 .. 3) {
    for my $two (0 .. 3) {
        for my $three (0 .. 3) {
            for my $four (0 .. 4) {
                my $test = "$one$two$three$four";
                print "$test\n" if $test=~m/^[0-3]{4}$/ and $test=~m/^(\d)(?!\d*\1)(\d)(?!\d*\2)(\d)(?!\d*\3)\d$/;
            }
        }
    }
}