in reply to Possible useless use of map

@$hr{@{$arr}} = (1) x @$arr;

[download]

In Section Seekers of Perl Wisdom