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>";