Select Code to Download

use strict;
use warnings;
...
      }
    }
}

my @weeks = ('@week01','@week02','@week03');
for my $ref (@weeks) {
...
for(@weeks){
   print;
}

my @week01 = (0..13);
my @week02 = (0..11);
...
   print join ",",@$_;
   print $/;
}

for my $array_ref (@weeks_arr){
   print join "," ,@{$array_ref};
}

for(@weeks_arr) { 
 print join ",",@$_;  
 print $/;
}