foreach (@DISPLAY_COLS) {
  print("<th valign=bottom>$COLUMN_TITLE{$_}</th>");
};

##</code><code>##

print $cgi->tr([@COLUMN_TITLES]);