[perl] map map map

Version imprimable