foreach ($a, $b)

##</code><code>##

while (<$fh>)