@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;