my @entry = split(/=/, $line, 2); $val{$entry[0]} = $entry[1];