Perl Switch Statement

Есть ли способ запустить блок кода, если ни один из блоков case не был найден? Например:

switch($a) {

  case // {}
  case // {}
  ...
  # DO SOMETHING IF NONE OF THE ABOVE CASES WERE MATCHED
}

else - это не то, что я ищу, поскольку он применяется только к последнему блоку case.