use Devel::Size qw(total_size);

my @a;  push @a, [$_,$_] for 1..2**16;
print total_size(\@a);                   # one array of pairs

my @b;  push @b, $_ for 1..2**16;
print total_size(\@b) * 2;               # two arrays

__END__
4964080
4740496