@l_art = (eins,zwei,drei,vier,fünf,sechs);
@l_nosum_art = (zwei,sechs);
foreach my $nosum_art(@l_nosum_art){
       $cnt_elem++;
         for($i=0; $i<=$#l_art; $i++) {
            if ($l_art[$i] eq $nosum_art) {
               splice @l_art,$i,1;
               last;
            } # e if
            last if $i > 100; # Sicherheit vor Endlosschleife
         } # e for
} # e foreach