perl的shift和unshift 是对数组的开头或者说数组左边进行响应的处理。
shift 用于取出数组最开头第一个元素。
@array = qw#dino fred bareny#;
$m=shift(@array); # $m变成dino, @array 现在是(fred,bareny)
unshift 用于添加一个元素(或一串元素)到数组的开头；
@array = qw（a b);
unshift(@array,c); # @array现在是 （c a b );