#!/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";

##</code><code>##

C:\perl>perl practice.pl
@array has Book Novel Magazine Guide so total:4
Now we have Book Novel Magazine Guide LFY
Now we have Novel Magazine Guide LFY
Now we have Novel Magazine Guide and I have saved LFY
Now we have LFY Novel Magazine Guide