my(@a) = ('a', 'b', 'c', 'def');
my $s = 'foo';
print "s=$s, a=\@  a\n";
- syntax OK