in reply to Array to Hash

or even 
%hash = map { $_=> 1} @array;

[download]

In Section Seekers of Perl Wisdom