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