Select Code to Download

for (@$list) {
   ...
}

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

$grid[$x][$y]

our $buf; local *buf = $ref;