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";
    }

#!/usr/bin/perl

use strict;
use warnings;

my $dir = '/path/to/dir';
opendir my $dirh, $dir or die $!;
my @files = map{ [$_, stat( $dir . '/' . $_ )[9]] }grep{ -f $dir . '/' . $_ }readdir $dirh;
closedir $dirh;

print $_->[0] for sort{ $b->[1] <=> $b->[0] }@files;