如何在Perl中按键对散列哈希值进行排序？

#!/usr/bin/perl

use strict;
use warnings;

my %hash = (
    "apple" => 5,
    "banana" => 3,
    "orange" => 7,
    "grape" => 2
);

# 对散列哈希值进行排序
my @sorted_keys = sort { $hash{$a} <=> $hash{$b} } keys %hash;

# 打印排序后的结果
foreach my $key (@sorted_keys) {
    print "$key: $hash{$key}\n";
}