dummy();
sub dummy
{
my @array = qw (red green blue);
my %hash = qw (flintstone fred rubble barney);
#$hash{"boulder"}=["bambam", "bubbles"];
my $count = 0;
my $ref = \@array;
print Dumper(\@array);
}