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