Hard to comment without knowing the full context of your system but it sounds like a Finite-state machine. If you haven't coded a finite state machine in Perl before, this article may be helpful.