c:\test>p1
use Devel::Size qw[ total_size size ];;

$h{ pack 'C*', map int rand 256, 1 .. 5 }=1 for 1 .. 1e6;;

print scalar keys %h;;
1000000

print total_size( \%h ) / 1e6;;
47.194364