Select Code to Download

    $tables{$day}->{$state} = \[$deathsToday, $m, $double, $intercept,
+ $corr];

    foreach my $point ( @${$tables{$day}->{$state}} ) {
      print $fh "\t", $point;

{
  confirmed => \[1, 0.334638642561918, 2, 0.873307778517249, 0.8539438
+57158699],
  deaths    => \[],
}