Select Code to Download

@ar = grep {
    my $all_matched=1;
...
    }
    $all_matched;
} @ar;

sub filter_stuff {
   my $stuff = shift;
...
       }
   }
}

for (my $i=$#$stuff; $i >= 0; --$i) {
#use $i as index
}