my @weeks = ('@week01','@week02','@week03');
my @weeks_refs = ("\@week01","\@week02","\@week03");
my @weeks_arr = ([0..13],[0..11],[0..11]);
my @week01 = (0..13);
my @week02 = (0..11);
my @week03 = (0..11);

for my $ref (@weeks) {
   for ($i = @$ref; --$i;) {
      my $r = int rand ($i+1);
      @$ref[$i, $r] = @$ref[$r, $i];
   }
}
for(@weeks){
   print;
}

for my $ref (@weeks_refs) {
   for ($i = @$ref; --$i;) {
      my $r = int rand ($i+1);
      @$ref[$i, $r] = @$ref[$r, $i];
   }
}
for(@weeks_refs){
   print;
}

for my $ref (@weeks_arr) {
   for ($i = @$ref; --$i;) {
      my $r = int rand ($i+1);
      @$ref[$i, $r] = @$ref[$r, $i];
   }
}
for(@weeks_arr){
   print;
}