#! perl
use strict;
use warnings;

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

unshift @popped, pop @array for 1 .. 3;

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

##</code><code>##

Original @array contents: a, b, c, d, e
@array now contains:      a, b
The deleted elements:     c, d, e