Select Code to Download

foreach my $thing (@array) {
        process($thing);
...
        last if too_many($thing);
        ....
}

for my $case ( @cases ) {
    my $is_interesting = eval { interesting($case) };
...
       print "$case had errors:$@";
    }
}