while(my ($username, $rooms) = each %Users) {
   print "User $username:\n";
   foreach my $room (@{$rooms}) {
      print "\t$room\n";
   }
}