Jak mogę porównać różne elementy tablicy w Perlu?

Jestem nowy w tej dziedzinie. Tak uprzejmie idź na mnie. Mam dwie tablice:

@array1 = ("ABC321", "CDB672", "PLE89",....);

@array2 = ("PLE89", "ABC678", "LMD789",...);

Chcę porównać elementy tych dwóch różnych tablic. Ale chcę dopasować tylko litery z literami. Na przykład, jeśli tablice są porównywane,$array[2] element (PLE) powinien pasować do$array2[0] (PLE) i podobnie$array1[0] (ABC) powinien pasować do$array[1] (ABC). Jestem w stanie to zrobić pojedynczo, ale nie jestem w stanie porównać wszystkich elementów obu tablic w tym samym czasie (czyli pętli tablic).

    my ($value1)= ($array[2]=~ /([A-Z]+)[0-9]+/);
    print "Value1: $value1 \n";
    my ($value2)= ($array[0]=~ /([A-Z]+)[0-9]+/);
    print "Value2 : $value2 \n";
    if ($value1 eq $value2){
            print " length \n";
    }

Jakieś sugestie dotyczące konfiguracji pętli dla obu macierzy jednocześnie?

questionAnswers(2)

yourAnswerToTheQuestion