Select Code to Download

#! perl -slw
use strict;
...

printf "%${N}s : %${N}d\n", $perms[ $_ ], $counts[ $_ ]
    for 0 .. $#perms;

C:\test>junk -N=3
111 :  41
...
331 :  42
332 :  32
333 :  32