http://qs321.pair.com?node_id=11008


in reply to Array to Hash

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

[download]

In Section Seekers of Perl Wisdom