my @restricted_words = qw ( 
  funk  
  shucks 
  crud
); 
if (grep $word =~ /$_/, @restricted_words) {
  print "wash your mouth out!\n";
} else {
  print "Such a nice boy\n";
}