@x = (1..2);
@y = qw(one two);
@z = qw(Amy Bob);

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

# prints '{1,2},{one,two},{Amy,Bob}'