my %hosts;
{
    local $_;
    open my $fh, '<', '/path/to/data.file' or die $!;
    while (<$fh>) {
        my @pair = split;
        $hosts{ $pair[0] } = $pair[1];
    }
    close $fh or die $!;
}