如何从Perl中的数组中获取哈希值？

#!/usr/bin/perl
use strict;
use warnings;

# 示例数组
my @array = qw(apple banana orange);

# 使用map函数将数组元素映射到哈希值
my %hash = map { $_ => { value => $_ } } @array;

# 打印哈希值
for my $key (keys %hash) {
    print "Key: $key, Value: $hash{$key}{value}\n";
}