Arrays bearbeiten

[siggi]

Hallo Leute,
ich grübel hier über einem kleinen Problem, welches bestimmt nicht allzu schwer ist zu lösen, nur leider komm ich nicht drauf.

Ich habe 2 Arrays, jeweils gefüllt mit Namen und Werten ...

Bsp Array 1:

name1 ... 20
name2 ... 30
...

usw (Array 2 ähnlich, aber mit anderen Werten, aufgebaut)

Jetzt habe ich noch ein 3. Array gefüllt mit Namen, welche ich aus den ersten 2 Arrays entfernen will.

Habe den Teil bis jetzt in etwa so gelöst.

foreach my $name (@array3){
        foreach my $i @array1{
                if($i !~ m/^$typ/){
                        push(@namen1_neu,$i);
                }
        }
        foreach my $i @array2{
                if($i !~ m/^$typ/){
                        push(@namen2_neu,$i);
                }
        }
}

Nur leider entfernt er immer nur den ersten Namen, welcher im array3 angegeben ist. Wie könnte mein Problem zu lösen sein? Hat jemand einen Tipp für mich, oder muß ich das mit Rekursion lösen?

mfg