switch($number)
{
  case 6, 12, 13, 37, 44, 68 { \&subroutine(@args); }
  case 1, 29, 77, 98         { \&othersub(@args); }
  default                    { sleep(1); }
}