use Search::Dict;
look *FILEHANDLE, $key, $dict, $fold;