sub process_frumptions {
    my ( $frumption_set ) = @_;

    for my $frumption ( keys %$frumption_set ) {
        process_one_frumption $frumption;
    }
}

sub process_one_frumption {
    my ( $frumption ) = @_;

    for my $barfloon ( keys %{$frumption->{'barfloon_gallery'}} ) {
        process_one_barfloon $barfloon;
    }
}