#!/opt/perl/bin/perl -w

use strict;

my @badwords  = qw /jerk store king/;
my @myarray   = qw /jerry wash king kong store when jerk/;

@@ {@myarray} = (); delete @@ {@badwords};  
@myarray = keys (%@);

print "@myarray\n";

__END__