print Data::Dumper->Dump( [ \ %name ], [ qw{ *name } ] );
exit;