my $ar1=[$x,$x];
my $ar2=[$y,$z];