my %whop_value = reverse %whop;
foreach my $newm (@newest_members) {
    $newm .= '<b>*</b>' if exists $whop_value{$newm};
    $newm .= ' - ';
    print $newm;
}