my (@arr1, @arr2, $var, @arr3) = ( (),(),"0", () );