for ( my $wk = 0 ; $wk < $numWks ; $wk++ ) {
    my $wktotal = 0;
    my %dayHash;

    ...
}