print "before: $value\n";
  $hash{key} = $value;
  print "after: $hash{key}\n";