print $Local = Data::Dumper->Dump([\%{Hash}], ["Hash"]);