foreach my $element (keys %dateparts) { ... }