#!/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"}();