print $out Data::Dumper->Dump( [ \%hash ], [ '*dict' ] );