Besides (and you've been at this a while so just
do it) -w/use strict and
or die "can't open $path/newestm.txt: $!";
I'm guessing your %whop hash as member names
as values and ... well, lets say IP addresses as keys.
One way would be:
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
yes, wasteful and a map would probably be
cool or $who_list = join '|', values %whop; and
then if ($newm =~ /$who_list/ but you get the idea.
a