# get info from dictionary files
    while(($folder, $drive) = each %search_locations)
    {
        #get list of files in directory
        $mw->update;  
        $var = "Looking in - $drive/DICT/SOURCE\n";
        chdir "$drive/variable/DICT/SOURCE";
        $mw->update; 
       @file_list = glob ("*.dsf");
          $mw->update;
         $var = “Num of files: $#file_list”;
    }