Select Code to Download

my @patterns = ( .................. );
foreach my $iterator ( @array ) {
    my @found = grep { $iterator =~ m/$_/ } @patterns;
    do_something_with( @found );
}