$ perl -E 'my @name = qw{a b c}; say for @name'
a
b
c