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

}