foreach $customer (keys %HoH) {
        print "$customer\n";
        foreach $date (keys %{$HoH{$customer}} ) {
                print "\t\t$date";
                foreach my $data (keys %{$cal{$customer}{$date}} ) {
                        print " = $data\n";
                }
        }
}