my @a;
$a[100]=1;#how much memory taken by @a so far?

$a[1000]=1;#how much memory taken by @a so far?

$a[10000]=1;#how much memory taken by @a so far?

...