変数が利用しているメモリサイズの取得

　Devel::Sizeモジュールを使います。

use strict;
use Devel::Size;

my @foo = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
print Devel::Size::total_size(\@foo), "\n";