my @x = (1..10);
my @y = qw(one two three four five six seven eight nine ten);
my @z = qw(Amy Bob Cal Deb Eck Fay Gin Hob Ian Jan);

my @xyz = (\@x, \@y, \@z);
my $glob = join( ',', map { '{' . join( ',', @$_ ) . '}' } @xyz );