in reply to howto map/grep a complex structure

is there a tutorial to learn how to translate this 'foreach / if' combination into 'map / grep'?
Effective Perl Programming item 20, "Use foreach, map and grep as appropriate", provides a nice summary of when to use foreach, map and grep: