如何在Perl中创建一个调度表,其中键包含空格,子例程接受数组参数？

#!/usr/bin/perl

use strict;
use warnings;

# 创建一个哈希表，其中键包含空格
my %dispatch_table = (
    "key with space" => \&subroutine1,
    "another key" => \&subroutine2,
);

# 子例程1
sub subroutine1 {
    my @array_params = @_;
    print "Subroutine 1 called with array parameters: @array_params\n";
}

# 子例程2
sub subroutine2 {
    my @array_params = @_;
    print "Subroutine 2 called with array parameters: @array_params\n";
}

# 调用子例程
my $key = "key with space";
my @params = (1, 2, 3);
if (exists $dispatch_table{$key}) {
    $dispatch_table{$key}->(@params);
} else {
    print "Key not found in dispatch table.\n";
}