Select Code to Download

for my $p0 (1     .. 5-1) {
for my $p1 ($p0+1 .. 5-1) {
...
        "\n",
    );
}}

use Algorithm::Loops qw( NestedLoops );

...
        print("$str\n");
    },
);

1|2|345
1|23|45
...
12|3|45
12|34|5
123|4|5