Select Code to Download

sub short_sorts {
  my ($a,$b,$type) = @_;
...
    die "A sort type was not selected.";
  }
}

(sort {
  short_sorts($master_list{$a}{members},$master_list{$b}{members},'nd'
+) ||
  short_sorts($a,$b,'ia')
} keys %master_list)