Something off the top of my head, and if you are sure that there is always two servers after the domain, this should work:

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

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

    }
redo unless eof(IN);    
}
[download]

I'll think of something else that might help.

Update: ok, here it is, should pass:

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);    
}
[download]

but you have to read the whole input into an array.

---

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

Chady | http://chady.net/