Help for this page

Select Code to Download

Select or download this

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

Select or download this

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