my @stuff;
push @stuff, 'element';
push @stuff, 'elephant';
local $" = ')(';
print "(@stuff)\n";