print( Data::Dumper->Dumpxs( [ \ %WPs ], [ qw{ *WPs } ] ));