while (<FILE>) {
    chomp;
    my ($key, $value) = split (" ", $_);
    $hosts{$key} = $hosts{$value};
    }