my @data_array; my %data_hash while (my $line = <$fh>) { chomp($line); # Variante 1: Anonyme Arrays my @values = split(/\s*,\s*/, $line); push @data_array, [@values]; # Variante 2: Hash mit Spalte 0 als key my ($key, @hvalues) = split(/\s*,\s*/, $line); $data_hash{$key} = [@hvalues]; }