[0] Perl> $#a = 7e6;;
[0] Perl> $data = 'X' x 700; $a[ $_ ] = $data for 0 .. 7e6 -1;;