perl变量：
$a 代表变量a
@a 代表数组a
数组的增删改查如下：
@a=("1" , "2" , "3");
可以如下表示：
@a=qw( 1 2 3 );
1-2操作都是针对数组的末端
1.取出数组最后一个元素：
@array=5..9;
$fred=pop(@array);
此时fred=9，@array=5..8;
2.向数组添加一个新元素：
push(@array,0);
@array=（5..9,0）;
@others = qw /9 0 1 2/;
push(@array,@others);
3-4操作都是针对数组的首端
3.取出数组第一个元素：
unshift(@array,5);
4.向数组头塞一个元素:
shift（@array,5）
5.对数组中间的数据进行增删
@remove=splice @array ，1,2；
删除数组array的第一个和第二个元素并把删除的数组赋值给remove
@remove=splice @array ,1,2,qw(w q s)
删除数组array的1,2元素，并且将wqs这个数组替换该位置
@remove=splice @array,1,0,qw(w q s)
不删除数组元素，并且将wqs这个数组插入到1号元素之前
$a 代表变量a
@a 代表数组a
数组的增删改查如下：
@a=("1" , "2" , "3");
可以如下表示：
@a=qw( 1 2 3 );
1-2操作都是针对数组的末端
1.取出数组最后一个元素：
@array=5..9;
$fred=pop(@array);
此时fred=9，@array=5..8;
2.向数组添加一个新元素：
push(@array,0);
@array=（5..9,0）;
@others = qw /9 0 1 2/;
push(@array,@others);
3-4操作都是针对数组的首端
3.取出数组第一个元素：
unshift(@array,5);
4.向数组头塞一个元素:
shift（@array,5）
5.对数组中间的数据进行增删
@remove=splice @array ，1,2；
删除数组array的第一个和第二个元素并把删除的数组赋值给remove
@remove=splice @array ,1,2,qw(w q s)
删除数组array的1,2元素，并且将wqs这个数组替换该位置
@remove=splice @array,1,0,qw(w q s)
不删除数组元素，并且将wqs这个数组插入到1号元素之前
