#!/usr/bin/perl
use strict;
use warnings;

my @matrix;
for my $y (0..4)
{
  formy $x (0..4)
  {
    $matrix[$y][$x]='A';
  }
}

# Ausgabe:
print join(', ', @$_), "\n" for(@matrix);