use Data::Dumper;

my @compile ...
print "<pre>\n", Dumper(\@compile), "\n</pre>\n";

##</code><code>##

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