open FILE ..;
undef $/;
$x =<FILE>;
%hash = split /=/, (split /\n/, $x);
close FILE ..;