my (@values1,@val1,@values2,@val2,$val) = 0;