opendir(DIR,$directory);

my @files = map {
    $_->[1]
} sort {
    $b cmp $a
} map {
    ["$directory/$_", $_]
} (readdir DIR);
print "$_\n" foreach @files;