while (<FILE>) {
    next if /^\s*#/ ; # skip comments
    next unless /\S/; # skip blank lines
    chomp;
    my ($key, $value) = split;
    $hosts{$key} = $value;
    }