while (<$in>) {
        chomp;
        my @data = split(/\s*=\s*/);
        $hash{$data[0]} = $data[1];
};