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

##</code><code>##

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

##</code><code>##

{
  confirmed => \[1, 0.334638642561918, 2, 0.873307778517249, 0.853943857158699],
  deaths    => \[],
}