Select Code to Download

my @keep = ();
while (@array) {
...
    # do stuff
    push @keep, $element unless ( $result eq 'foo' );
}