如何在Perl中调用存储在哈希中的函数名？

#!/usr/bin/perl

use strict;
use warnings;

# 定义一个哈希表，存储函数名和对应的函数引用
my %functions = (
    add => \&add,
    sub => \&sub,
    mul => \&mul,
    div => \&div
);

# 调用存储在哈希表中的函数名
my $result = &{$functions{add}}();
print "Result: $result\n";

# 定义一个加法函数
sub add {
    return 1 + 2;
}

# 定义一个减法函数
sub sub {
    return 1 - 2;
}

# 定义一个乘法函数
sub mul {
    return 1 * 2;
}

# 定义一个除法函数
sub div {
    return 1 / 2;
}