$ perl -E'
$h={foo=>{bar=>13908480193},baz=>{bar=>771918754},qux=>{bar=>288170793399}};
say "$_: $h->{$_}->{bar}" for sort { $h->{$b}->{bar} - $h->{$a}->{bar} } keys %$h;
'
foo: 13908480193
baz: 771918754
qux: 288170793399

##</code><code>##

$ perl -E'
$h={foo=>{bar=>13908480193},baz=>{bar=>771918754},qux=>{bar=>288170793399}};
say "$_: $h->{$_}->{bar}" for sort { $h->{$b}->{bar} <=> $h->{$a}->{bar} } keys %$h;
'
qux: 288170793399
foo: 13908480193
baz: 771918754