perl:如何在一个函数中传递一个字符串和2个散列？

sub my_function {
    my ($str, $hash1, $hash2) = @_;
    
    # 在函数中使用传递的参数
    print "传递的字符串：$str\n";
    print "传递的散列1：\n";
    foreach my $key (keys %$hash1) {
        print "$key: $hash1->{$key}\n";
    }
    print "传递的散列2：\n";
    foreach my $key (keys %$hash2) {
        print "$key: $hash2->{$key}\n";
    }
}

# 调用函数并传递参数
my $str = "Hello";
my $hash1 = { key1 => "value1", key2 => "value2" };
my $hash2 = { key3 => "value3", key4 => "value4" };

my_function($str, $hash1, $hash2);