1.使用列表赋值来进行变量对调
perl会先计算等号右边的表达式，然后对应位置赋值：
（$b,$a）= ($a,$b) ; ($c,$a,$b) = ($a,$b,$c) ; #数组切片让你用简单的语法随意置换数组的内容 @a[1,3,5] = @a[5,3,1] ;
2.用[] 或 () [] 转为列表上下文
my @words = split /\+/, (/([^:]*)/)[0] ;
引用操作符施加在列表上，只会返回一个新的列表，而非数组引用。
my $word_ref = \ (split /\++/,$str) ; #错误 my $word_ref = [split /\++/,$str] ; #正确
3. 用=>构造键值对
大箭头操作符=>的功能其实与逗号操作符差不多，唯一的差别是：如果=>左边能识别成一个单词，那么perl会自动将它当成一个字符串，而不是函数调用。
4.用=>指明操作方向
作为“语法糖”来指明操作方向。例如在rename函数中
rename "$file.c" => "$file.c.old";
5. 小心使用{}
my @a = @{func_returning_arrayref} ; #错误 my @a = @{func_returning_arrayref()} ; #正确 my @a= @{&func_returning_arrayref}; #正确 my @a= @{+func_returning_arrayref}; #正确
6 用@{[]} 或 eval{} 的形式来复制列表
Perl里面没有提供复制数据结构的函数，如果需要一份列表的的匿名副本，可以把列表放在匿名列表构造操作符中，然后对它进行解引用。
my @missing_h = grep { s/\c$/\.h/ and ! -e } @{[@cfiles]};
另一种产生临时副本的方法是把它放在eval块中，它能返回块内部最后一个表达式的计算结果。
my @missing_h = eval { @cfiles };
提示：尽量使用eval方式，比前一种方式更加高效。
不过遇到这种情况还应该考虑是否真正需要临时副本。 在前面的例子中，完全可以在grep做些改进，引入一个$_变量的临时副本就可以了。
my @missing_h = grep { my $h= $_; $h =~ s/\c$/\.h/ and ! ( -e $h) } @cfiles;
以上方法都是“影子副本”既完整的独立的副本。 如果原始列表中的元素是引用的话，复制的结果和原始数据共享数据。
如果确定需要一份完全独立的深层副本。 请使用Storable 模块的 dclone 函数：
use Stroeabl qw(dclone); my @copy_ref = dclone(\@array);