unless($found_host2 == 1) 
{ 
     open FILE, $file; 
     my @lines = <FILE>; 
     chomp(@lines); 
     my $search = $path.$host." ".$access.$host;
     foreach(@lines){
       $_ .= ":$host" if($_ =~ /$search/); 
     }
     open FILE, ">$file"; 
     print FILE join("\n", @lines); 
     close(FILE); 
     mkdir "$path$host"; 
}