While I don't share llancet's concerns and attitude nor do I understand his/her "hate" (such a strong word...) for splice, I must admit that if I think of it, its interface is not that handy. Generally one doesn't realize, because... well: as a matter of a fact we don't need that often to remove random elements from the middle of an array(-ref) I don't, at least; in fact I can't remember the last time did I had such a requirement. Probably my mindset is so formed as to devise algorithms that will make me choose an alternative path anyway.

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;
use autobox;
use Data::Dumper;

sub ARRAY::extract {
    my $aref=shift;
    my @out=@{$aref}[@_];
    @$aref=@{$aref}[grep !($_ ~~ @_) => 0..$#$aref];
    @out;
}

my @x0 = my @x = 'a'..'g';
my @y = @x->extract(2,3,-8);
print Dumper \(@x0, @y, @x);

__END__
[download]

# -*- Perl -*-

use strict;
use warnings;
use 5.010;

package Array::Extract;

use base qw/autobox/;

sub import {
    my $class = shift;
    $class->SUPER::import(ARRAY => 'Array::Extract::Work');
}

package Array::Extract::Work;

sub extract {
    my $aref=shift;
    my @out=@{$aref}[@_];
    @$aref=@{$aref}[grep !($_ ~~ @_) => 0..$#$aref];
    @out;
}

1;

__END__
[download]