my $ar3=[$x,$x];
my $ar4=[$y,$y];