my @list = qw/hello hunn I am home homealone myhome myhomealone/;

print "$_\n" for grep {$_ !~ /home/} @list;

# hello
# hunn
# I
# am