perl - perlでハッシュのハッシュの最高値にアクセスしますか?

Question

だから私は次のようなハッシュのハッシュを持っています:

my %hash = (
    'fruits' => {
        'apple'    => 34,
        'orange'   => 30,
        'pear'     => 45,
    },
    'chocolates' => {
        'snickers' => 35,
        'lindt'    => 20,
        'mars'     => 15,
    },
);

最大数の果物と最大数のチョコレートだけにアクセスしたい。出力は次のようになります。

果物：梨のチョコレート：スニッカーズ

foreach my $item (keys %hash){
#print "$item:\t"; # this is the object name
foreach my $iteminitem (keys %{$hash{$item}})
    {
    my $longestvalue = (sort {$a<=>$b} values %{$hash{$item}})[-1]; #this stores the longest value
     print "the chocolate/fruit corresponding to the longestvalue" ;   

     #iteminitem will be chocolate/fruit name
    }
 print "\n";
}

難しいことではないことはわかっていますが、私は真っ白です！