# 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;
    }
}