use strict;

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

my $array_reference = \@array; 

&print_array($array_reference);

# print 'blue'
print "COLOR: $$array_reference[3]\n";

sub print_array {
    my $reference = shift;
    foreach (@$reference) { print "IN THE SUB: $_\n"; }
}