Select Code to Download

use strict;
use warnings;
...

say q{Second new hash read in from modified file};
print Data::Dumper->Dumpxs( [ \ %HoH2 ], [ qw{ *HoH2 } ] );

File content after first write
%HoH = (
...
                                   }
                     }
        );