Select Code to Download

my $p = 9                                   +   # 1 digit
       (9 * 8)                              +   # 2 digits
...
       (9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1);     # 9 digits

say $p; # = 986,409

my $calls = 0;
my $count = 0;
...
        pop  @digits;
    }
}