use strict;
use warnings;

my @somewords = qw(a b c d);

my $previous_core = '';

foreach my $core (@somewords) {
  print "$previous_core\n" if $previous_core ne '';
  $previous_core=$core;
}
print "************\n";

my $popword = pop @somewords;
print "popped >${popword}<\n";

print "\@somewords:\n";
print "$_\n" foreach @somewords;

print "************\n";