open my $C_LOC, '<', $C_LOCATIONS_FILE;
chomp(my @C_LOC_ARRAY = <$C_LOC>);
close $C_LOC;

##</code><code>##

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