perl map函数学习

map函数将数组中的每个值映射到表达式或块中，映射的结果返回另一个数组。  使用方法如下：    1. map EXPR,LIST;    2. map {BLOCK}LIST;

方法1举例：

方法2举例：