use Digest::MD5 qw[ md5 ];;

undef $h{ md5( $_ ) } for 1 .. 1e6;;

print total_size \%h;;
35665714