Trap 5 - a solution 

• Store sorted data in an array

sub logged_on_users {
  my @a = sort
          map { $_->username }
          values %sessions;
}

• or, extend the API

sub logged_on_user_count {
  return scalar keys %sessions;
}