#initialisierung @matrix
my @matrix;

for my $first_dim ( 0 .. 19 ) {
 for my $second_dim ( 0 .. 39 ) {
  $matrix[$first_dim]->[$second_dim] = "X";
 }
}
print $matrix[0]->[1];