perl的 pop和push操作符

perl的pop和push操作符，感兴趣的朋友可以参考下。

pop用来取出数组中的最后一个元素,同时返回该元素值:
@array=5..9;
$fred=pop(@array);  # $fred变成９,@array现在是(5,6,7,8)
$barney=pop @array; # $barney变成8,@array现在是(5,6,7)

push用于添加一个元素到数组的尾端:
@array=5..7;
push(@array,0);  # @array现在是(5,6,7,0)