sub BuildMMList {
 $list = $FORM{'list'};
 open(FILE, "$MM_FILE") || &error_message("Can't find data file - $datadir/lists.txt.");
 @list = <FILE>;
 close(FILE);
 $numlist = @list;
 for ($a = 0; $a < $numlist; $a ++)
         {
         ($one, $nochop) = split(/``/, $list[$a]);
         print "<option value='$one'>$one</option>\n";
         }
 close(FILE);
}