@a = qw(a b c);
for(<@a>)   { print "$_\n" };
while(<@a>) { print "$_\n" };