Select Code to Download

#!/usr/bin/env perl

...
my @sorted_humps;
push @sorted_humps, $_->{humps} for map { $animals->{$_} } @sorted_ani
+mals;
say "Sorted humps: @sorted_humps";

$ pm_nested_hash_extract.pl
Unsorted humps: 2 0 1
Sorted humps: 0 1 2