sub ShowGrowth
{   use Devel::Size qw(total_size);
    our ( $BigScalar, %BigHash, @BigArray );
    my $nokeys = keys ( %BigHash ); my $noitems = $#BigArray;
    print $DLOG "####### Devel::Size #########\n";
    print $DLOG "\$BigScalar: ",total_size(\$BigScalar),"\n";
    print $DLOG "\%BigHash: ",total_size(\%BigHash),"  No of keys: $nokeys\n";
    print $DLOG "\@BigArray: ",total_size(\@BigArray), " No of elements: $noitems\n";
}