foreach $name (@excer) {
    if ($1 / 2) {
        print '<FONT color="Yellow" face="Times New Roman">',
              $name,
              '</FONT><BR>';
    } else {
        print '<FONT color="#ccffff" face="Times New Roman">',
              $name,
              '</FONT><BR>';
    }
    $i++;
}