Taken from Perl Cookbook 4.7:

#!/apps/bin/perl -w
use strict;

# Taken from Perl Cookbook 4.7 Finding Elements in One Array but 
# not another

my %seen = (); # look up table
my @goodWords; # words you want

my @badWords=("jerk","store","king");
my @myArray=("jerry","wash","king","kong","store","when","jerk");

@seen{@badWords} = (); # build lookup table
my $item;

foreach $item (@myArray) {

    push (@goodWords, $item) unless exists $seen{$item};

}

# print the contents of goodWords

foreach (@goodWords) {
    print "$_\t";
}
print "\n";
[download]