$lookup{''} = 1;
substr($word, 0, 1) = "" while !exists $lookup{$word};