#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
#use Win32::UTCFileTime qw(:globally);

system 'cls';

my @files = (
    'xyz',      # vom 15.08. also mit Sommerzeit richtig ist 19:14
    'abc',      # vom 16.12. also ohne Sommerzeit richtig ist 12:42
);

schleife(\@files);

sub schleife {
    my ($files) = @_;
    foreach my $datei (@$files) {
        say "Datei '$datei'";
        my @epoch = localtime((stat($datei))[9]);
        $epoch[4] ++;
        $epoch[5] += 1900;
        say sprintf("%02d.%02d.%04d %02d:%02d:%02d",@epoch[3..5],reverse((@epoch)[0..2]))."\n";
    }
}