my @week01 = (0..13);
my @week02 = (0..11);
my @week03 = (0..11);

my @weeks_refs = (\@week01,\@week02,\@week03);

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 join ",",@$_;
   print $/;
}