/HASH/ && do {
    print($FH "$_=$$data{$_}\n") foreach (keys(%$data));
    last CASE;
  };