while (my($identifier)=...) {
  print "<tr><td><font color=#FF0000>",  # <- insert print
        "$identifier</font></td></tr>\n";
  foreach ...
}