cls;
my @xloc;
my $col= 0;