my @cbusers_lines;
for my $user (sort keys %cbusers) {
  push @cbusers_lines, "$user is a level $cbusers{$user} user";
}
print join( "\n" , @cbusers_lines );