use feature 'say';







for $i (0..1) {
  for $j (0..2) {
    for $k (0..3) {
      $a[$i][$j][$k][$l] = [(0)x5];
    }
  }
}



@b = (
     [1, 2, 4, 8, 16, 32],                                                      
     [<Mon Tue Wed Thu Fri Sat Sun>],                                           
     [sub{$_[0]+$_[1]}, sub{$_[0]-$_[1]}, sub{$_[0]*$_[1]}, sub{$_[0]/$_[1]}]   
);
say $b[0][5];           
say $b[1][2];           
say $b[2][0]->(40,2);   



$



$c[2][2] = 42;






say $c[-1][-1]; 


my @d = <Mon Tue Ned Sat Fri Thu>;
push @d, 'Sun';
$d[2] = 'Wed';
@d[3..5] = @d[reverse 3..5];
say "@d";