#!/usr/bin/perl
use strict;

my @array = ('1','2','3','blue','red');

# Get an array reference (via "\@") for the array called "array"
my $array_reference = \@{array}; 

&print_array($array_reference);

# print 'blue'
# lookup the fourth array element "${X}[3]" of the X defined by $array_reference
print "COLOR: ${$array_reference}[3]\n";

sub print_array {
    my $reference = shift;
        # access as an array the thing defined by $reference
    foreach (@{$reference}) { print "IN THE SUB: $_\n"; }
}