my @files
    while( readdir DIR ) {        
        push @files, $_ if /^\d*.html/;
    }