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