Select Code to Download

for ( my $i = 0; $i < @array; $i++ ) {
 ...
}

my @array = qw/ zero one two three four /;
for ( my $i = 0; $i < $#array; $i++ ) {
    print $array[$i],$/;
}

sub foo {
    my $arg = shift;
...
        $bar[ $data ] += $arg;
    }
}