foreach $element ( @elements ) {
    if ( $element = BEDINGUNG ) {
        AKTION;
        ENTFERNE_ELEMENT;
    }
}

# laufe rückwärts über die indizes
for my $i (reverse 0 .. $#elements) {
    # bedingung trifft zu
    if ( bedingung($elements[$i]) ) {
        # entferne genau ein element ein stelle $i
        splice @elenents, $i, 1;
    }
}

my @neu = ();
foreach my $element ( @elements ) {
    if ( $element == BEDINGUNG ) {
        AKTION;
    }else{
        push @neu, $element;
    }
}

my @values = 1 .. 10;

@values = map {
    if ( $_ % 2 ) {           # bedingung
        print "aktion: $_\n"; # aktion
        ();                   # entferne
    }
    else {
        $_
    }
} @values;

print "@values\n";

my $ENTFERNE = [];
my @values = 1 .. 10;

for my $value ( @values ) {
    if ( $value % 2 ) {
        print "aktion: $value\n";
        $value = $ENTFERNE;
    }
}

@values = grep { !( ref $_ eq 'ARRAY' && $_ == $ENTFERNE ) } @values;

print "@values\n";