מדריך שפת Perl

use strict;
use warnings;

my @stuff = qw/everybody wants a rock/;
my @rock  = @stuff[1 .. $#stuff];      # @rock is qw/wants a rock/
my @want  = @stuff[ 0 .. 1];           # @want is qw/everybody wants/
@rock     = @stuff[0, $#stuff];        # @rock is qw/everybody rock/

use strict;
use warnings;

my @stack;
push(@stack, 7, 6, "go");   # @stack is now qw/7 6 go/
my $action = pop @stack;    # $action is "go", @stack is (7, 6)
my $value = pop(@stack) +
            pop(@stack);    # value is 6 + 7 = 13, @stack is empty

use strict;
use warnings;

my @queue;
unshift (@queue, "Customer 1"); # @queue is now ("Customer 1")
unshift (@queue, "Customer 2");
            # @queue is now ("Customer 2" "Customer 1")
unshift (@queue, "Customer 3");
            # @queue is now ("Customer 3" "Customer 2" "Customer 1")

my $item = pop(@queue);
            # @queue is now ("Customer 3" "Customer 2")
print "Servicing $item\n";     # prints:  Servicing Customer 1\n
$item = pop(@queue);           # @queue is now ("Customer 3")
print "Servicing $item\n";     # prints:  Servicing Customer 2\n

use strict;
use warnings;

my @notAqueue;
unshift(@notAqueue, "Customer 0", "Customer 1");
# @queue is now ("Customer 0", "Customer 1")

unshift (@notAqueue, "Customer 2");
# @queue is now ("Customer 2", "Customer 0", "Customer 1")