use strict; use warnings; use Data::Dump qw/pp dd/; use Pod::Functions; pp '\%Flavor: ', \%Flavor; pp '\%Type_Description: ', \%Type_Description; pp '\@Type_Order: ', \@Type_Order; pp '\%Kinds: ', \%Kinds; pp '\%Type: ', \%Type;