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