my @dna_chunks = ...;
sub your_test {
   my $string = shift;
   # do your test here, and return 1 if it passes
}

my @used = grep your_test($_), @dna_chunks;
my $long_string = join '', @used;
print "Used ", scalar(@used), " chunks, ",@dna_chunks - @used, " discared";