foreach $hostname (sort keys %hosts)
  {
    print $hostname."\n";
  }