$ cat call_function_by_name.pl 
use strict;

sub foo {
        my $arg = shift;

        print "You called foo($arg)\n";
}

my $bar = 'foo';
{
        no strict 'refs';
        &$bar(5);
}
$ perl call_function_by_name.pl 
You called foo(5)