sub MainSub
{
    my $name = shift;

    if ($name eq 'Bob') {
        sub1(@_);
    }
    elsif ($name eq 'Ted') {
        sub2(@_);
    }
    elsif ($name eq 'Alice') {
        sub3(@_);
    }
    else {
        die "First parm $name should be Bob, Ted, or Alice\n";
    } 
}