my $array_reference = \@array; 

##</code><code>##

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

##</code><code>##

foreach (@$reference) { print "IN THE SUB: $_\n"; }