my %data = ();	# initialize hash
while (<INPUT>) {	# assume you have the file open already
	my ($key, $value) = split(/=/, $_, 2);
	$data{$key} = $value;
}