Select Code to Download

switch($number)
{
...
  case 1, 29, 77, 98         { \&othersub(@args); }
  default                    { sleep(1); }
}

if(($number == 6) || ($number == 12) || ($number == 13) || ($number ==
+ 37) || ($number == 44) || ($number == 68))
  { \&subroutine(@args) }
...
  { \&othersub(@args); }
else
  { sleep(1); }

my %actions =
  (
...
  if($actions{$text[1]})
    { return(&{$actions{$text[1]}}($self, $line, @text)); }
  }