http://www.perlmonks.org?node_id=130853


in reply to Another posible initializer
in thread Testing array of hash values

Actually, 
my %p;
@p{'eyes', 'hair', 'etc'} = ();

[download]
is a common idiom for using a hash slice to load a hash with keys and undef values.

In Section Seekers of Perl Wisdom