I highly suspect that the error is with your foreach $elem(@compile) line. Stick use Data::Dumper to your code, and check the values of your @compile.

use Data::Dumper;

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

Another possibility is that your table has duplicate data. To check for this, simply insert a print after the while loop -

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