Select Code to Download

@first_sort = (sort { .... } keys %my_server_hash );

for (@first_sort) {
  if ( &goes_first( $my_server_hash{$_} )) {
...
}
# now go through those subset arrays and print them in turn;
# alpha-sorting is preserved within each subset...