#!/usr/bin/perl
use warnings;
use strict;

my @array = qw(Book Novel Magazine Guide);
print "\@array has @array so total:",scalar @array,"\n";

push @array,"LFY";

print "Now we have @array\n";

shift @array;

print "Now we have @array\n";

my $saved = pop @array;

print "Now we have @array and I have saved $saved\n";

unshift @array, "LFY";
print "Now we have @array\n";