Select Code to Download

#!/usr/bin/perl
use strict;
...

    return @arrangements;
}

1 1 3
1 2 2
...
2 1 2
2 2 1
3 1 1

#!/usr/bin/perl
use strict;
...
        arrange($usedHoles, $remainingCount - $thisCount, $totalHoles,
+ "$prefix $thisCount");
    }
}