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

##</code><code>##

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