在Perl中,如何使用专用子例程按其值对词法哈希进行排序？

#!/usr/bin/perl

use strict;
use warnings;

my %lexical_hash = (
    apple => 5,
    banana => 3,
    orange => 2,
    pineapple => 4,
);

my $sorted_hash_ref = sort_lexical_hash(\%lexical_hash);

print "Sorted hash by value:\n";
while (my ($key, $value) = each %$sorted_hash_ref) {
    print "$key => $value\n";
}

sub sort_lexical_hash {
    my $hash_ref = shift;
    my @sorted_keys = sort { $hash_ref->{$a} <=> $hash_ref->{$b} } keys %$hash_ref;
    my %sorted_hash = map { $_ => $hash_ref->{$_} } @sorted_keys;
    return \%sorted_hash;
}