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

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

	}
redo unless eof(IN);	
}