$ perl -E '
    my %x = (A => { id => 2 }, B => { id => 3 }, C => { id => 1 });
    my @sorted = sort { $x{$a}{id} <=> $x{$b}{id} } keys %x;
    say "Last: $sorted[-1]";
'
Last: B

##</code><code>##

ID => {
    name => '...',
    parent_id => ...,
}