if(grep $_ eq $user_input, @{$word{substr $user_input, 0, 1} || []}) {
    # it's there
}
else {
    # no, that wasn't it
}