如何通过标量变量存储并调用子程序名称，使下方Perl示例代码正常运行？

当然可以实现！你的现有代码在use strict模式下会报错，因为直接用字符串标量调用子程序属于符号引用，而严格模式默认禁止这种操作。下面给你几种实用的解决方案，从推荐到可选依次说明：

1. 使用代码引用（最推荐的现代Perl做法） #

这是最安全、最符合Perl最佳实践的方式——直接把子程序的引用赋值给标量，再通过引用调用：

use strict;
use warnings;

sub doit {
    my ($who) = @_;
    print "Make us some coffee $who!\n";
}

sub sayit {
    my ($what) = @_;
    print "$what\n";
}

# 直接赋值子程序引用
my $action = \&doit;
$action->('john');  # 推荐的调用语法
# &$action('john');  # 另一种合法的调用方式，两种都能用

# 如果需要根据字符串动态获取引用，也可以这么做
my $action_name = 'doit';
my $action_ref = \&$action_name;  # strict模式下合法，只要子程序存在
$action_ref->('jane');

代码引用完全规避了符号引用的安全风险，在严格模式下能正常运行，是处理动态调用的首选方案。

2. 局部禁用strict的refs检查（不推荐，仅作了解） #

如果你非要用字符串直接触发调用，可以局部关闭strict的refs限制，但这种做法存在安全隐患（比如如果$action是用户可控的字符串，可能被用来执行恶意代码），所以只适合极简单的脚本场景：

use strict;
use warnings;

sub doit {
    my ($who) = @_;
    print "Make us some coffee $who!\n";
}

sub sayit {
    my ($what) = @_;
    print "$what\n";
}

my $action = 'doit';
{
    no strict 'refs';  # 仅在这个代码块内禁用refs检查
    $action->('john');
    # &$action('john');  # 同样可以用这种语法
}

注意一定要用代码块把no strict 'refs'限制在局部范围，避免影响其他代码的严格检查。

3. 用哈希表映射子程序（适合多动作场景） #

如果你的脚本需要处理多个可动态调用的子程序，把它们放进哈希表建立“名字-引用”的映射会更清晰，还能轻松做存在性检查：

use strict;
use warnings;

sub doit {
    my ($who) = @_;
    print "Make us some coffee $who!\n";
}

sub sayit {
    my ($what) = @_;
    print "$what\n";
}

# 构建动作映射表
my %actions = (
    doit  => \&doit,
    sayit => \&sayit,
);

my $action_name = 'doit';
if (exists $actions{$action_name}) {
    $actions{$action_name}->('john');
} else {
    print "Unknown action: $action_name\n";
}

这种方式不仅安全，还便于后续扩展新的动作，同时能避免因调用不存在的子程序而抛出错误。

内容的提问来源于stack exchange，提问作者gatorreina