my @arr = qw(red green brown);
my $hash;
$hash = { $_ => $hash || 1 } for (reverse @arr);
[download]

-- O thievish Night, Why should'st thou, but for some felonious end, In thy dark lantern thus close up the stars? --Milton