sub make_key {
  my $sn = shift;
  my $tag = $my_server_hash{$sn}{tag};
  my $member = $my_server_hash{$sn}{ADMINS};
  my $key = ($tag == 53) ? 2 :
            (($member =~ s/$tag/FOUND:$tag/i) && $tag != 1) ? 1 :
            0;

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