Select Code to Download

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

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