for my $sheet (1..3) {
   for my $row (1..3) {
      for my $col (1..3) {
         $sheets[$sheet][$row][$col] = 0;
      }
   }
}