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

##</code><code>##

D:\tools\perl\bin\perl -Id:/tools/perl/lib -w Tool5.pl report.xlsx > log.txt