push(@file_3_[$i],$array_file3[$i]);	

push @{ $file_3[$i] }, $array_file3[$i];

push @{ $file_3[$i] }, $array_file3[$i];

# wert Auslesen
my $value_von_array_file_3_i=$array_file_3[$i];
# Referenz auf ein Array auslesen
my $value_von_file_3_i=$file_3[$i];
# Das Array derefenezieren ( das macht das "@{}") und
# das Element dem Array hinzufügen
push( @{$value_von_file_3_i}, $value_von_array_file_3_i );

@file_3_[$i]

@{file_3_} [$i]

while (<FILETOREAD>) { # read each line of file, one at a time
        $xyz = $_;
        push(@values1,[split(/\,/,$xyz)]);
}
close (FILETOREAD);

@files_to_read = @ARGV;
$arrayzaehler = 1;
foreach (@files_to_read){
$filename = $_;
#Einlesen und Speichern der Datenfiles
open (FILETOREAD, "<$filename") || die "Can't open $filename: $!";
while (<FILETOREAD>) { # read each line of file, one at a time
        $i++;
        chomp;
        if (/^\#/){ next } #Kommentarzeilen im .csv-file überspringen
        s/\s*//g;
        $xyz = $_;
        @zeile = split(/\,/,$xyz);
        push @{ @values[$arrayzaehler] }, [split(/\,/,$xyz)];

$arrayzaehler = ++$arrayzaehler;
        

push @{ $values{$filename} }, [split(/\,/,$xyz)];

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

my @files_to_read = @ARGV;

# vorher initalisieren ist besser
my @values;

foreach my $filename (@files_to_read)
{
  #Einlesen und Speichern der Datenfiles
  open (FILETOREAD, '<', $filename) || die "Can't open $filename: $!";

  # read each line of file, one at a time
  while (my $line = <FILETOREAD>)
  {
    
    chomp($line);

    if ($line=~/^\#/){ next } #Kommentarzeilen im .csv-file überspringen

    $line=~s/\s+//g;

    # das reicht völlig aus
    # so hängst du an das Array @values
    # eine Arrayrefenzen mit den den gesplitteten Werten an
    # das ist ein Array of Arrays
    push(@values, [split(/\,/,$line)]);

  }
  close(FILETOREAD);
}

# mal alles ausgeben
print join(', ', @$_)."\n" for(@values);