Although dispatch tables are the prefered way to do it, you can use variables as sub names:

#!/usr/bin/perl
use strict;
use warnings;

sub sa { print "sub sa\n"; }
sub sb { print "sub sb\n"; }

my $name = 'a';

# using the symbol table
$main::{'s' . $name}->();

$name = 'b';

# using symbolic references:
no strict 'refs';
&{"s$name"}();
[download]

Be aware that this might open some security holes depending on your application. You have been warned!