What you are trying to do is called a symbolic reference and needs to be done without reference strict-ness, see perlref for more details

use strict;
use warnings;

sub foo {  print "foo\n"; }
sub bar {  print "bar\n"; }

my $var = 'foo';
no strict 'refs';
&$var;  ## <-
[download]

Hope this helps

citromatik