An even faster solution that sorts files with identical timestamps by name:

# Assumes 32-bit timestamps.
print map { substr($_, 4) . "\n" }
      sort
      map { pack('Na*', (stat($_))[9], $_) } @DirList;
[download]