my $subs = {
  "joes_routine" => \&joesub,
  "marks_routine" => \&marksub,
...
};

$subchoice = GetSubToUse();
@args = GetSubArgs();

$subs->{$subchoice}->(@args);