foreach $ip(@ip) {
   print $out "#" if(/\b$ip\b/i && !/^#/); #only one # at front of line
   print $out $_;
 }