while ( my $line = <$fh> ) {
     chomp $line;
my @vorhandene_werte = split(/\s+/,$line);
push (@aoa , \@vorhandene_werte);
}