unless(grep /home/, @words) {
  print $words[$x];
}