this should be slightly faster:

my @files_exist = reverse sort grep { defined } 
  map { my $f = $_; $f =~ s/^(\d+)\.html$/$1/ ? $f : undef }
  readdir DIRE;
[download]