Help for this page

Select Code to Download

Select or download this

use Algorithm::Combinatorics qw(permutations);

...
        }
    }
}