use strict;
user warnings;

my @AoA;
my $AoA_Ref;

# Datei direkt einlesen auf AoA
open (DAT, "<", "data1") or die "Oops: $!\n";
while (my $line = <DAT>)
  {
  @tmp = split(",", $line);
  # Array-Referenz-Konstruktor [ ... ] beachten
  # push (AoA, @tmp ) waere falsch!
  push (AoA, [ @tmp ]);
  }
close(DAT);

# Desgleichen, jedoch mit Array-Referenz
open (DAT, "<", "data1") or die "Oops: $!\n";
while (my $line = <DAT>)
  {
  @tmp = split(",", $line);
  push (@{$AoA_Ref}, [ @tmp ]);
  }
close(DAT);