#!/usr/bin/perl

use strict;
use warnings;
use autodie;

my @files = qw( 1.txt 2.txt 3.txt );
my @matrix;

for my $file ( @files ) {
    open my $fh, '<', $file;
    push @matrix, [ map $_+0, <$fh> ];
}

for my $i ( 0 .. $#matrix ) {
    my $row = $matrix[$i];
    print "$i: @$row\n";
}

#!/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);

#!/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);

#!/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);

#!/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);