c:\@Work\Perl\monks>perl -wMstrict -e
"my @a1 = qw(My name is    Andrew);
 my @a2 = qw(My dog  named Andrew);
 ;;
 for my $w1 (@a1) {
   INNER:
   for my $w2 (@a2) {
     next INNER if $w1 eq $w2;
     print qq{system command a1 $w1 and a2 $w2 \n};
     }
   }
"
system command a1 My and a2 dog
system command a1 My and a2 named
system command a1 My and a2 Andrew
system command a1 name and a2 My
system command a1 name and a2 dog
system command a1 name and a2 named
system command a1 name and a2 Andrew
system command a1 is and a2 My
system command a1 is and a2 dog
system command a1 is and a2 named
system command a1 is and a2 Andrew
system command a1 Andrew and a2 My
system command a1 Andrew and a2 dog
system command a1 Andrew and a2 named