while (<DATEI>) {
   my ($key, $value) = split(/\s*=>\s*/, $_, 2);
   $vars{$key} = $value;
}