Perl Hash of Hash，获取最低的数字键

Question

我有一个散列，其中第一个键是一个字符串，第二个键是一个整数。我试图得到散列中最低的第二个键。这是我的杂碎。

%HoH = (
    flintstones => {
        8 => "fred",
        4 => "barney",
    },
    jetsons => {
        5 => "george",
        1 => "jane",
        9 => "elroy",    # Key quotes needed.
    },
    simpsons => {
        99 => "homer",
        5  => "marge",
        3  => "bart",
    },
);

如何获取哈希辛普森一家的最低（最小）密钥？在这种情况下，答案将是3。我能找到的最接近的相关搜索是获取具有最高值的密钥的方法。但是我正在尝试获取具有最低数值的键。

==================编辑============我的尝试=============

foreach my $cartoon (keys %HoH){
    if ($cartoon == "simpsons"){
        $HoH{$cartoon}{<numeric key>};   # somehow store and print lowest key
    }
}

我不能依次循环按键(1，2，3，4，等等。)并简单地存储和返回最低的键，因为键(1，2，3，4等。)可能不存在。我可能会尝试将键存储在一个单独的数组中，并在该数组中存储最少的键。这就是我的尝试。这是一种迂回的方式。因为这是一种迂回的方式，接下来我会做更多的谷歌搜索，看看是否有一种更简单的方式(单行方式)来做到这一点。

Answer 1

my $min = (sort {$a <=> $b} keys $HoH{'simpsons'})[0];
print $min;

Answer 2

use List::Util qw(min);
print min(keys(%{$HoH{simpsons}}));