my @array = qw/ a b c /;
my $string = '(' . join ",", @array . ')';  # $string ist danach "(3)"
my $string = '(' . join(",", @array) . ')'; # $string ist danach "(a,b,c)"