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