Select Code to Download

use strict;
use warnings;
use Algorithm::Loops qw(NextPermute);
...
while (my @x = $perm->next) {
    print "@x";
}

Algoritm::Loops::NextPermute says
n n o o
n o n o
...
n o o n
n o n o
n o o n