Could be a candidate for the Switch module:

use Switch;

switch ($foo) {
  case [$bar,$baz,$boo] { print "yep!\n" }
}
[download]

buckaduck