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

##</code><code>##

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

##</code><code>##

print join ' ', @dict[ unpack 'V*', $records[ $hit ] ];