for my $i (0..12) {
   for my $j (0..26) {
      for my $k (0..12) {
         $biu[$i][$j][$k] = $u105 ;
      }
   }
}