在Perl中,如何创建其键来自给定数组的哈希？

my %hash = (
    apple   => 1,
    banana => 2,
    orange => 3
);
my @keys = sort keys %hash;

my %fruit_counts = (
    banana => 2,
    apple  => 1,
    orange => 3
);
my %processed_counts = map {$_ => 0} grep {$_ % 2 == 0} keys %fruit_counts;

my %fruit_counts = (
    banana => 2,
    apple  => 1,
    orange => 3
);
my @array = keys %fruit_counts;