use strict;
use Devel::Size qw(size total_size);
my $double;
my @array;
my @matrix;

$double = 1.0;

for my $x (0..9) {
  $array[$x] = 1.0;
  for my $y (0..9) {
    $matrix[$x][$y] = 1.0;
  }
}


print "Double: ", size(\$double), ", ", total_size(\$double), "\n";
print "Array:  ", size(\@array), ", ", total_size(\@array), "\n";
print "Matrix: ", size(\@matrix), ", ", total_size(\@matrix), "\n";