Help for this page
$ perl -E ' my %x = (A => { id => 2 }, B => { id => 3 }, C => { id => 1 }); ... say "Last: $sorted[-1]"; ' Last: B
ID => { name => '...', parent_id => ..., }