my @a = qw/foo bar quz/;
print   "----- 1 -----\n";
print @a;           # "foobarquz"
print "\n----- 2 -----\n";
print scalar @a;    # "3"
print "\n----- 3 -----\n";
print @a , "\n";    # "foobarquz"
print   "----- 4 -----\n";
print @a . "\n";    # "3"
print   "----- 5 -----\n";
print "@a";         # "foo bar quz"
print "\n----- 6 -----\n";
$" = "&";
print "@a\n";       # "foo&bar&quz"
print   "----- 7 -----\n";
$, = "%";
print @a , "\n";    # "foo%bar%quz%"
print   "-----   -----\n";