Select Code to Download

sub server_sort {
  # bi-valued key = 0 if {tag} is not 53 and 1 if {tag} is 53
...

# now the server names are sorted with the 53 tags grouped
# separately from the rest.

sub make_key {
  my $sn = shift;
...
my @server_names = map { decode_key($_) }
                   sort { $a cmp $b }
                   map { make_key($_) } keys %my_server_hash;

sub make_key {
  my $sn = shift;
...

  return sprintf "%1d%20s%5d", $key, $sn, $tag};
}