my @foo = grep (/100008020/, @C_LOC_ARRAY);
my @foo2 = grep (/Z/,@foo);