+
+ # Finish column when the last element in the array has passed and we have an uneven amount of items.
+ if(! ($lines2 % 2) && ($location eq $locations[-1] )) {
+ print "<td $col> </td>\n";
+ print "<td $col> </td>\n";
+ print "<td $col> </td>\n";
+ print "<td $col> </td>\n";
+ print "<td $col> </td></tr>\n";
+ }
+