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

my @matrix;
my $count=0;
while($count<5)
{
  my @zeile=split(/,/, 'A,A,A,A,A');
  $matrix[$count]=\@zeile;
  $count++;
}

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