You're using a symbolic reference which can be Very Dangerous and produce Unexpected Results if the variable containing the subroutine name gets hold of a Reserved Word. Create a hash of references to subroutines. (or a hash of anonymous subroutines, since the names are superfluous at that point)

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

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

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