foreach ($a, $b)
[download]

This makes $_ an alias to $a and $b.

while (<$fh>)
[download]

This modifies $_, and hence, modifies $a and $b. Note that the final value will be undefined.