Your code will work if you switch off the stricture,

{
    no strict 'refs';
    # the code
}
[download]

but that is usually not the best practice. Use hard references, as NetWallah suggests.

If you must select a sub with a string, wrap up the hard references in a hash,

my %code = (
    foo => \&foo,
    bar => \&bar,
    baz => sub { print 'baz here', $/ }
);
my $pick = 'foo';
$code{$pick)();
[download]

Props to you for using strict. It's a good habit and it paid off for you here.