for my $index(0..(scalar @files)-1){
  open my $fh,'<',$files[$_] or die $!;
  my $data_counter = 0;
  while(do {local $/="\n\n\n";defined($data = <$fh>)}){
    my $line_counter = 0;;
    for my $line(split(/\r?\n/,$data)){
       chomp $line;
       my ($spalte1,$spalte2,$spalte3) = (split(/\s+/,$line))[0..2]; # die hier war nur "Kosmetik"
       $hash{$_}->{$data_counter}->[$line_counter} = [$spalte1, $spalte2, $spalte3];
       $line_counter++;
    }
    $data_counter++;
  }
}

# gib 2. Spalte der 4.Zeile des 2. Datensatzes der 3.Datei aus:
print $hash{2}->{1}->{3}->[1],"\n";