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

##</code><code>##

my @data;
foreach my $i (@$times) {
  push @data, [
    "<img src='$icons->{$i}' alt="invalid w/out an alt' />",
    $i,
    $conditions->{$i},
    "$hilo->{$i}: $temperatures->{$i}&deg;F",
    "PoP: $precip->{$i}%"
  ];
}

print "<table border='1'>";
foreach my $row ( 0 .. @{$data[0]}-1 ) {
  print "<tr>";
  foreach my $col ( @data ) {
    print "<td>$col->[$row]</td>";
  }
  print "</tr>";
}
print "</table>";

##</code><code>##

my $data = [];
foreach my $i (@$times) {
  add_column( $data, 
    "<img src='$icons->{$i}' alt="invalid w/out an alt' />",
    $i,
    $conditions->{$i},
    "$hilo->{$i}: $temperatures->{$i}&deg;F",
    "PoP: $precip->{$i}%"
  );
}

print "<table border='1'>";
foreach my $col ( @$data ) {
  print '<tr>', @$col, '</tr>';
}
print "</table>";

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