my @data; foreach my $i (@$times) { push @data, [ "{$i}, "$hilo->{$i}: $temperatures->{$i}°F", "PoP: $precip->{$i}%" ]; } print "