Select Code to Download

%HoA = (
    part1     => [
...
       'Duffy'
   ]
);

sub sort_keys_ascending{
  sort keys %HoA
}

my $href = \%HoA;
sub sort_typeparm_ascending{
...
      }
      keys %data
}

sub sort_typeparm_descending{
  sort{
...
      }
      keys %data;
}