perl hash 和 map 新理解

hash 的操作：
一次修改多个元素：
@ss = (1..10); #定义列表
@ss{@ss}= map {$_*2} @ss; #定义hash,并赋值
@ss{2,5,8,10} = qw(it is a test);#多个hash元素赋值操作


map操作：
之前一直以为map一次只能返回一个值，其实map也可以返回多个元素.
@ss = map {$_*2,$_*2+1} (1..10);
print "ss=@ss\n";