Select Code to Download

for ($i = 1; $i <= 8; $i++) {
  print "\\\$i is ", \$i, "\n";
...
  print "\$c is $c\n";
  push @codes, $c;
}

\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)
...
$c is CODE(0x80cea04)
\$i is SCALAR(0x80ce98c)
$c is CODE(0x80cea04)

for (my $i = 1; $i <= 8; $i++) {
  print "\\\$i is ", \$i, "\n";
...
  print "\$c is $c\n";
  push @codes, $c;
}

\$i is SCALAR(0x80ce974)
$c is CODE(0x80c83ac)
...
$c is CODE(0x80d2514)
\$i is SCALAR(0x80ce974)
$c is CODE(0x80d2580)

 foreach my $i (1..8) {
  print "\\\$i is ", \$i, "\n";
...
  print "\$c is $c\n";
  push @codes, $c;
}

\$i is SCALAR(0x80c83ac)
$c is CODE(0x80ce95c)
...
$c is CODE(0x80d241c)
\$i is SCALAR(0x80d2488)
$c is CODE(0x80d2494)