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

my @matrix;
my $count_down=5;
while($count_down>0)
{
  push(@matrix,[split(/,/,'A,A,A,A,A')]);
  $count_down--;
}

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