Select Code to Download

my $r = "{0,1,2,3,4,5,6,7,8,9}";
while (my $n = glob "$r$r$r$r") {
    # Do something with $n.
}