my @tm = (localtime)[reverse 0..5]; # time ist default, gleich richtig für spätere Array-Slices sortieren
     $tm[0] += 1900;
     $tm[1]++;
     $stats->{TimePoint}->{Time} = sprintf '%02d:%02d:%02d', @tm[0..2];
     $stats->{TimePoint}->{Date} = sprintf '%04d-%02d-%02d', @tm[3..5];