for (@$list) {
   ...
}

##</code><code>##

for (keys %$table) {
   ...
}

##</code><code>##

$grid[$x][$y]

##</code><code>##

our $buf; local *buf = $ref;