my $href = do $datafile;
if (not $href) {
  if ($!) {
    die "Cannot eval $datafile: $!";
  }
  else {
     $href = {};
  }
}
my %hash = %$href;