#!perl use strict; use Data::Dumper; #my @groups = [ [ 23,24,25 ], [ 22,21,20 ] ]; # change ^ ^ my @groups = ( [ 23,24,25 ], [ 22,21,20 ] ); my $perms = join ',', map { join ',', @$_ } @groups ; print Dumper $perms;