my @groups = [ [ 23 ], [ 22 ] ]; 
my $perms = join ',', @groups;
print Dumper $perms;