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

my @matrix;
for(1..5)
{
  push(@matrix,[]);
  for(1..5)
  {
    push(@{$matrix[-1]},"A")
  }
}

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