while (my $curline = <IN>){

 #if the current line read is a domain #domain

  if ($curline =~ /^#/){

      print $curline, "\n"; # for debugging

       my $currentdomain = $curline;                

       while($curline = <IN>){
             if ($curline !~ /^#\s/ or $curline !~ /^\s/)

                {  $server++;

                   $currentserver = $curline;

                   push(@serverlist, $currentserver);

                 }  ## end if    

               elsif ($curline !~ /^\s/){


             $HoA{$currentdomain} = [@serverlist];

             $currentdomain = $curline;  

          } #end else

        } ## end while
           if ( eof(IN)){$HoA{$currentdomain} = [@serverlist];}
        } ## end if
  } ## end while