my $x = '!';

foreach $x (qw( a b c )) {
   print("$x\n");
}

print("$x\n");

##</code><code>##

a
b
c
!