while (<>) {
    /^(.+)\:/ ;         # Capture Server Name
    $hash{$1} = $_ ;    # Create Hash Key if found
  } 

  foreach $server (sort keys %hash) {
    print "$hash{$server}\n" ;
  }