for $i (0 .. 1){
  $y[0][$i]=[@{$z[$i]}];
}