for ($he="s"; $a<$jolly; $good+=$fellow) { ... }


##</code><code>##

foreach my $country (qw/I give a fig/) { ... }