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

my @fruits=qw/apple pear orange citron/;

my $f=shift @fruits;
printf "shift: %s\n",$f;

my $p=pop @fruits;
printf "pop: %s\n",$p;

push  @fruits,'grape';
foreach my $f( @fruits) {
    printf "%s\n",$f;
}