Have you considered using Quantum::Superposition?

This module will allow a scalar to be many values at the same time (i.e. a set of values) and you can perform matches on it that will return true if any or all (depending on the config) of the values that scalar represents match

Just an idea - obviously how useful this will be will depend on the rest of programs.