Please have a look at perldoc -f map. If there's something you don't understand, allmost everyone will help you.