$ perl -MData::Dumper -e 'for ($i=0;$i<20;$i++)
> {
>  for ($ii=0;$ii<40;$ii++)
>  {
>   %matrix=($i => { $ii => "X"});
>  }
> }
> print Dumper \%matrix'
$VAR1 = {
          '19' => {
                    '39' => 'X'
                  }
        };