for $j (2 .. 7){
        $y[1][$j]=[$z[1][$j]];
}
for $j (2 .. 7){
        $y[1][$j]=[@z[1][$j]];
}