What you've specified is a hash of a hash of a hash. I don't think that's what you meant. If you meant each array value ends in a single hash with a value of 1, the below will work.

my @array =(a..f); 
my %h = map { $_ => 1 } @array;
[download]

-Lee

"To be civilized is to deny one's nature."