my ($i, $a, $b, $c, $d, $x, $w, $y, $z, $ta, $tb, $tc, $td);
         
       $a= $b= $c= $d= $x= $w= $y= $z= $ta = $tb =$tc =$td= 0;