Considering the strings you are using contain A,T,G,C, I'm guessing you're trying to some sort of genetic analysis. I highly recommend you head on over to the BioPerl site and start reading. They have optimized solutions in Perl for handling huge data sets of nucleotide sequences and doing matching and reporting.