my @ARGV = ("./data");
    my @files = ();

    # Gefundene Dateien hinzufügen...
    find sub { push(@files, $_) }, @ARGV;

    # Dateien nach Datum sortieren...
    foreach my $file (sort sub { (stat($a))[9] <=> (stat($b))[9] }, @files) {
        print "$file\n";
    }