#! perl -slw
use strict;
use Tie::Array::Packed;
#use Math::Random::MT qw[ rand ];

$|++;

my @aod = map {
    'd' x 17120;
} 1 .. 8400;

## To access individual elements of @aod
## instead of $aod[ $i ][ $j ] use:
## substr( $aod[ $i ], $j, 1 );

my @aob;
for ( 1 .. 8400 ) {
    printf "\r$_";
    tie my @row, 'Tie::Array::Packed::Integer';
    @row = map{ 1e5 + int( rand 9e5 ) } 1 .. 17120;
    push @aob, \@row;
}

## For @aob use the normal syntax $aob[ $i ][ $j ]
## but remember that y0u can only store integers

<>;

print $aob[ $_ ][ 10000 ] for 1 .. 8400;