#!/usr/bin/perl
sub makelist{
open FAMS,"<families.txt";
open LIST,"<Clements.txt";
while (<FAMS>){chomp;s/\s*$//;
      ($fam,$name,$desc)=split /:/;$f_info{$fam}="<b>$fam <i>$name</i> $desc</b>"}
while (<LIST>){ chomp;
      next unless /^\d/;
      ($fnum,$lat,$com,$whr) = split /:/;
      $str="<i>$lat</i> $com<br>\n";
      push @{$famlist{$fnum}},$str;
      $famcounts{$fnum}++;
}  

for $fam (sort {$a <=> $b} keys %famlist) {
    print  "<br>$f_info{$fam} ($famcounts{$fam})<br>\n";
    map {print $_} @{$famlist{$fam} }
}


for (sort {$a <=> $b} keys %famlist) {
    $f_info{$_} =~ s/<i>//g;$f_info{$_} =~ s/<\/i>//g;
    print "$f_info{$_} ($famcounts{$_})<br>\n" }
}


makelist();