在perl中构建可变深度哈希引用数据结构

use strict;
use warnings;

# 构建可变深度哈希引用数据结构的子例程
sub build_hash_ref {
    my ($keys, $value) = @_;

    # 如果没有剩余的键，则返回值
    return $value unless @$keys;

    # 取出当前键
    my $key = shift @$keys;

    # 构建当前层级的哈希引用
    my $hash_ref = {};

    # 递归构建下一层级的哈希引用
    $hash_ref->{$key} = build_hash_ref($keys, $value);

    return $hash_ref;
}

# 构建可变深度哈希引用数据结构
my $keys = ['key1', 'key2', 'key3'];
my $value = 'Hello, World!';
my $hash_ref = build_hash_ref($keys, $value);

# 打印结果
use Data::Dumper;
print Dumper($hash_ref);