@$hr{@{$arr}} = (1) x @$arr; [download]
In reply to Re: Possible useless use of map by happy.barney in thread Possible useless use of map by andreas1234567