sub MATRIX {


#Einlesen und Speichern der Datenfiles
open (FILETOREAD, "<$_") || die "Can't open $_: $!";
$i = 0;
while (<FILETOREAD>) { # read each line of file, one at a time
++$i;
	chomp;
	next if /^#/;	# Kommentarzeilen überspringen
	s/\s+//g;	# Leerzeichen entfernen
	$xyz = $_;
push(@values,[split(/\,/,$xyz)]);
}
$values_ref = \@values;
[b]return $values_ref;
return $i;
return $spalten_values = @ergebniss = (split(/\,/,$xyz));[/b]

}