while (<$in>) {
        chomp;
        my ($key, $value) = split(/\s*=\s*/);
        $hash{$key} = $value;
};