# Pseudocode!
foreach $date (@dates) {
    split $date into $year,$month,$day
    push(@{$dates{$year}->{$month}}, $day);
}