A concrete idea is that your long list of hashes should all be one hash of hashes. That reduces the insert lines down to something like:

my $base = substr($grp, 0, 3);
if (exists $is_hierarchy{$base}) {
  $dsc{$base}{$grp} = $dsc;
  $title = "$base$ng";
}
else {
  $dsc{other}{$grp} = $dsc;
}
[download]