#!/usr/bin/perl

#How can I dereference and print this one:

my @my_array_reference2 = (
	'BLACK', [qw(blue green red yellow)]
);

foreach (@my_array_reference2) {

  if (ref $_ eq 'ARRAY'){print "@$_"}
                         else {print "$_\n"}
};