foreach my $day(@ALL_WEEK_DAYS) {
    ...
}