取数组中分段部分

my @a=(1..10);
$b=join "\t",@a[1..3,$#a-1];
print "$b";

结果：

2 3 4 9