in reply to Improve foreach with help of map?

Does anyone have an alternative approach to do this, using map?

Eeeew :) perldoc -f goto