Re^4: array pop

[GrandFather]

in reply to Re^3: array pop
in thread array pop

or more clearly, concisely and efficiently:

#! perl
use strict;
use warnings;

my @array = ('a' .. 'e');
print 'Original @array contents: ', join(', ', @array),  "\n";
my @popped = splice @array, 0, 3;

print '@array now contains:      ', join(', ', @array),  "\n";
print 'The deleted elements:     ', join(', ', @popped), "\n";

splice is your friend.