use Data::Dumper;

#initialisierung %matrix
for ($i=0;$i<20;$i++)
{
 for ($ii=0;$ii<40;$ii++)
 {
  %matrix=($i => { $ii => "X"});
  print Dumper \%matrix;
 }
}
print $matrix{0}{1};            #klappt nicht