foreach $element @array {#code}
##</code><code>##

local ($1, $2) = ($1, $2); # OK, so you can't actually write this.

##</code><code>##

$1 = 50;