grep Problem!!

[alguien]

Hi!

while(@Liste) {
        unless (grep(/$Liste[0]/, @pop_array)) {
               print "$Liste[0]\n";
        }
}
Wenn in Array @pop_array ein Eintrag names "test10" vorhanden ist

unless (grep(/^$Liste[0]$/, @pop_array)) {

Also mit ^ am Anfang und $ am Ende der Regex. Warum eigentlich $Liste[0]?? Dann sucht er ja jedesmal das erste Feld des ersten Arrays. Sollte es nicht $_ heißen??

Gruß