use strict;

my $func1 = 'Fuge';
my $func2 = 'Hoge';

no strict "refs";
*{"$func1"} = \&{"$func2"};

Hoge;
Fuge();        #これを上のやつみたいに()省略して呼ぶにはどう書けばいいんでしょう

sub Hoge{
        print 'hogehoge';
}