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