...
use Devel::Size qw[ total_size ];
...
unless( int( time ) % 3600 ) {
    open my $sizelog, '>', '/some/path/' . localtime() . '.log' or warn $!;

    print $sizelog "$_ =>", total_size( $::{ $_ } ) for sort keys %::;

    close $sizelog;
}