# assuming you've already opened your file...
while (my $line = <FILE>) {
    chomp $line;
    my ($host,$ip) = split(/\s+/,$line,2);
    $hosts{$host} = $ip;
}