#!/usr/bin/perl

# unshift

print "$_\n" for @INC;
unshift @INC, '/home/steve/my_lib_dir';
print "$_\n" for @INC;

# shift

parameter("Hello, world!");

sub parameter {
    my $param = shift;
    print "$param\n";
}

# push

my @numbers = qw(1 2 3 4 5);
my @totals;

for my $elem (@numbers){
    push @totals, $elem + 5;
}

print "$_\n" for @totals;