Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
@groups = ( [ 20, 21, [22, 23], 24], [ [ 25 ], [ [ [ 26 ] ] ] ], 27 );
$perms = join ',', flatten(@groups);
print "$perms\n";

Select or download this
```
23,22
20,21,22,23,24,25,26,27
```