while (@dates) {
    ......
    shift(@dates);
}

##</code><code>##

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