Select Code to Download

print '<table boder="1"><tr>';
print map { "<td><img src='$icons->{$_}' alt='$alt->$icons->{$_}'></td
+>" } (@$times);
print "</tr><tr>";
...
print map { "<td>$conditions->{$_}</td>" } (@$times);
# ...
print '</tr></table>

my @data;
foreach my $i (@$times) {
  push @data, [
...
  print "</tr>";
}
print "</table>";

my $data = [];
foreach my $i (@$times) {
  add_column( $data, 
...
    push @{$table->[$i]}, "<td>$_[$i]}</td>";
  }
 }