$u15 = 15;
     $u105 = 105;
     $u25 = 25;
#
    for($k=0; $k<=12; $k++) {
        push  @biu_z, $u105 ;
     }
     for ($j=0; $j<=26; $j++) {
        push @biu_yz, [ @biu_z ];
     }
     for ($i=0; $i<=26; $i++) {
        push @biu, [ @biu_yz ];
     }
#
    for($k=0; $k<=12; $k++) {
        push  @zcu_z, $u15 ;
     }
     for ($j=0; $j<=26; $j++) {
        push @zcu_yz, [ @zcu_z ];
     }
     for ($i=0; $i<=25; $i++) {
        push @zcu, [ @zcu_yz ];
     }
#
#    problem ?
#
    for ($k=1; $k<=12; $k++) {
#
     for(my $i=1; $i<=5; $i++) {
               $biu[$i][4][$k] = $u25;
     }
     for(my $i=22; $i<=26; $i++) {
               $biu[$i][4][$k] = $u25;
     }
     for($i=1; $i<=4; $i++) {
               $biu[$i][23][$k] = $u25;
     }
     for($i=23; $i<=26; $i++) {
               $biu[$i][23][$k] = $u25;
     }
#
}