map

map函数提供了一种将一系列值转换成另一系列值的方法。通常是一对一的转换，但是最后的结果也可以比原来的列表长或短一些。

my @numbers = (1..5);
print "@numbers
";       # 1 2 3 4 5
my @doubles = map {$_ * 2} @numbers;
print "@doubles
";       # 2 4 6 8 10