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