my @scratch= grep {$_ != $deleter } @{$self->{_fields}}; my $retval= @{$self->{_fields}} - @scratch; @{$self->{_fields}} = @scratch;