my (@arr1, @arr2, $var, @arr3) = ( (1,2),(11,22),"0", () );
 print "\n[@arr1]";
print "\nvar is $var";