It probably is to late now, but you should at least consider a module such as IO::Prompt::Hooked. It does all the looping for you. All you provide is the messages and a callback to validate the response.