my @files = readdir $DIRHANDLE;