my @values = 1 .. 10;

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

print "@values\n";