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

my %hash = ();
my @files = <./Pfad/*.init>;
# für jede .init-Datei
foreach my $file(@files){
  open(FILE,"<$file") or print $!;
  my $ersteZeile = <FILE>;
  close FILE;
  my @local_array = split(/,/,$ersteZeile);
  $hash{$file} = [@local_array];
}

#schreibe die Ergebnisdatei
open(WRITE,">ergebnis.txt") or print $!;
foreach(sort(keys(%hash))){
  print WRITE $_," hat folgende Werte:\t@{$hash{$_}}\n";
}
close WRITE;