http://www.perlmonks.org?node_id=400340

replicant4 has asked for the wisdom of the Perl Monks concerning the following question:

Dear Perl Monks, I have a serious problem and I would really appreciate and help that you can give me I have created two arrays (@site1 @site2) each of which contains string variables (called $site1, and $site2). an example of a $site is: $site = 'AATKKM' I need a script that will compare $site1 of @site1 with every $site variable in @site2. It should give me for example the following pairs (if $site2 = 'GGGGG') AG AG TG KG KG MG these will be my pairwise combinations for every combination that i find I need to have a counter that will increment by 1 e.g AG -> count_AG++; I don't expect anyone to give me a full working script but any ideas on the overall structure that it should have would be more than helpfull. Thanks in advance for your help