foreach (@words) { print "$_\n" unless /home/; }