foreach $key (keys %include) {
if ($include{$key} eq 'yes') {
print "$titles{key}
$titles2{$key}
\n";
}
}
# try instead:
foreach my $date ( sort keys %dates ) {
foreach $key ( @{$dates{$date}} ) {
if ($include{$key} eq 'yes') {
print "$titles{key}
$titles2{$key}
\n";
} # if include eq yes
} # foreach key @dates
} # foreach date dates