0] Perl> @a = map [], 1 .. 1e6;;
0] Perl> ## At this point, the process is using 195MB RAM.;;
0] Perl> $s = $#{ $_ } for @a;;
0] Perl> ## At this point, the process is using 395MB RAM.;;