Select Code to Download

#! perl
use strict;
...

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

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