# ganz simples Auslesen...
my $defines = {};
open DEF,'<','./defines.cfg' or die $!;
my $sect;
while (<DEF>) {
   if (/^\[(\w+)\]/) {
      $sect = $1;
   } elsif (/^(\w+)\s=\s(\d+)$/) {
      # ich erzeuge sofort ein Array mit der Reihenfolge der Keys
      $defines->{$sect}->[$2] = $1;
   }
}
close DEF;

my $datadir = "$stats->{TimeStamp}->{Date}";
unless (-e $datadir) {
  mkdir($datadir) or die $!;
}

foreach my $alias (keys %$stats) {
   next if $alias eq 'TimeStamp';
   my $file = "$datadir/$alias";
   my $data = $stats->{$alias};

   sysopen my $fh,$file,O_WRONLY | O_APPEND | O_CREAT,0644 or die $!;
   flock($fh,LOCK_EX);

   print $fh $stats->{TimeStamp}->{Time};
   foreach my $key (@{$defines->{$alias}}) {
      # if $key, weil die ersten Elemente leer sein können
      print $fh " $data->{$key}" if $key;
   }
   print $fh "\n";

   close $fh;
}