#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @ary = qw(red green brown);
my %hash = ();

eval '$hash{' . join('}{',@ary) . '}++;';

print Dumper(\%hash);