foreach $zeile (@A) {
   foreach $zeile2 (@B) {
     if($zeile2 eq $zeile) {
      push (@ergebnis, $zeile2);
     }
    }
  }