Select Code to Download

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

sub removeJunk {
    my @stuff = @_;  my (@keepers);
    while (my $value = pop @stuff) {
...
    }
    return @keepers;
}