my $day;

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