[0] Perl> $#a = 7e6;;
[0] Perl> $a[ $_ ] = ['','','',''] for 0 .. 7e6 -1;;
[0] Perl>