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

my @array = ('Alice', 'Bob');
unshift @array, 'Chris';    #=> ('Chris', 'Alice', 'Bob')
my $element = shift @array; #=> ('Alice', 'Bob')
print $element;             #=> "Chris"