for my $a (0 .. 4 - 1) {
  for my $b (0 .. 5 - 1) {
    for my $c (0 .. 6 - 1) {
      $array[$ a][$ b][$ c] = 0;
    }
  }
}