opendir(DIRE, "/home/lenn287/public_html/diary");
my @files_exist = reverse sort  map { $_ =~ s/^(\d+)\.html$/$1/; $_} 
     grep { /^\w+.\.html$/} readdir DIRE;
closedir DIRE;