my @extracted = extract { ... } @list;

##</code><code>##

my @extracted;
my $c = 0;
while ($c < @$list) {
    local *_ = \$list->[$c];
    if (do { ... }) {
        push @extracted, splice @$list, $c, 1;
    }
    else {
        $c++;
    }
}

##</code><code>##

my @extracted = grep { ... } @list;
@list = grep { not ... } @list;

##</code><code>##

my $filter = sub { ... };
my @extracted = grep { $filter->() } @list;
@list = grep { not $filter->() } @list;