$Data::Dumper::Terse = 1; # Briefer - looks nice (no silly $VARnnn)
...
print "\n### words ###\n", Dumper(%words)
    if ($Dbits & $D_WORDS);
...
if ($stats_required)
{
    ...
    if ($Dbits & $D_LENGTHS)
    {
        local $Data::Dumper::Indent = 0;
        local $Data::Dumper::Pad = ' ';
        print "\n### lengths ###\n", Dumper(@lengths), "\n";
    }
    ...
}

##</code><code>##

$Data::Dumper::Push(Indent Pad) # Save these
...
$Data::Dumper::Pop() # Restore everything