{
	my $line = <IN>;
	if ($line =~ /^\#/) {

		my $server1 = <IN>;
		my $server2 = <IN>;
		$HoA{$line} = [$server1, $server2];

	}
redo unless eof(IN);	
}		

##</code><code>##

my @in = <IN>
{
	$line = shift(@in);
	if ($line =~ /^\#/) {
		my @serverlist;
		while ($in[0] !~ /^\#/) {
			my $server = shift(@in);
			push @serverlist, $server;
		}
		$HoA{$line} = [@serverlist];
	}
redo while (@in);	
}