... = hmap { my($k,$v)=@_; ... } ...;