or download this
use strict;
use Devel::Size qw(size total_size);
...
print "Double: ", size(\$double), ", ", total_size(\$double), "\n";
print "Array: ", size(\@array), ", ", total_size(\@array), "\n";
print "Matrix: ", size(\@matrix), ", ", total_size(\@matrix), "\n";