#open newest
open(NEW,"<$path/newestm.txt") or die "can't open $path/newestm.txt: $!";
@newest_members = <NEW>;
close(NEW);

#open whosonline
use DB_File; 
tie %whop, "DB_File", "$path/whosonline" or die "Can't open FILENAME: $!\n";
foreach $onname (@newest_members) {
if (exists $whop{'$onname'}) {
print <<EOF;
$onname<b>*</b> - 
EOF
}
else {
print <<EOF;
$onname - 
EOF
}
} #foreach $newm
untie %whop;
dbmclose %whop;