foreach $newm (@newest_members) {
  my $online;
  foreach my $whos_on ( values %whop ) {
    $online++ if $whos_on eq $newm;
  }
  my $star = '<b>*</b>' if $online;
  print <<EOF;
$newm $star -
EOF
}   # foreach newm