while (length($word) && !exists $lookup{$word}) {
   substr($word, 0, 1) = ""; # remove 1st char
}

# $word will be empty or the matched string