Select Code to Download

foreach my $quarter (keys %date_slots) {
  if (exists $HoH{$customer}{$quarter} {
...
    print " = no data";
  }
}