foreach my $date (@dates) {
    .....
}