Select Code to Download

for ( @some_array ) {
    if ( $_ eq 'foo' ) {
...
    }
    handle_rest($_);
}

for ( @some_array ) { ... }
# to
my $index = -1;
while ( ++$index <= $#some_array ) { ... }

my $flag;
my $index = -1;
...
    handle_rest($_);
}