#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;    
print Dumper \%ENV;

my @array = ('Alice', 'Bob');
push @array, 'Chris';     #=> ('Alice', 'Bob', 'Chris')
my $element = pop @array; #=> ('Alice', 'Bob')
print @array"\n";
print $element;           #=> "Chris"