foreach (sort keys %count) {
      if ($count{$_} == 1) {
                print "user $_ is ONLY logged in at one place: ";
                print keys %{$where{$_}},"\n";  # print the single key
      } else {
                print "user $_ is logged in at: ";
                @where = sort keys %{$where{$_}};
                print "@where\n";
      }
}