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";