Select Code to Download

%HoH = (
        cat => {
...
                }
        }
);

my %date_slots = (
        1 => FY2003-Q2,
...
        4 => FY2004-Q1,
        5 => FY2004-Q2
);

foreach $customer (keys %HoH) {
        print "$customer\n";
...
                }
        }
}

cat
        FY2003-Q2 = blah blah blah
...
catdog
        FY2004-Q1 = blah blah blah
        FY2004-Q2 = blah blah blah

cat
        FY2003-Q2 = blah blah blah
...
        FY2003-Q4 = no data
        FY2004-Q1 = blah blah blah
        FY2004-Q2 = blah blah blah