#! /usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @array=qw(In to the wild);
my @filterarray=qw(the);
print Dumper @array;
for(my $i=0;defined $array[$i];$i++){
    my $word=$array[$i];
    foreach my $filter (@filterarray){
        if($filter eq $word){
            splice (@array,$i,1);
        }
    }
}
print Dumper @array;
exit 0;