print "<table><tr>";
for my $i (@$times) {
   print qq{
  <td>
  <img src="$icons->{$i}" alt="" /> <br />
  $i
  $conditions->{$i} <br />
  $hilo->{$i}: $temperatures->{$i}\&deg;F <br />
  PoP: $precip->{$i}\%
  </td>
};
print "</tr></table>";
[download]