Select Code to Download

foreach (@array) {
    dosomethingto($_);
}

for (my $i = 0; $i < @array; $i++) {
    dosomethingto($array[$i]);
}

my $fs = '';
for (my $f = 0; $f < 10; $f++) {
...
    redo if length($fs) == 6;
}
print "fs: $fs\n";

my $gs = '';
FOR_INIT:
...
    goto FOR_NEXT;
FOR_LAST:
print "gs: $gs\n";