Arrays perl数组元素减法

我有一个如下的数组

--------------------------------- 1 2 3 4 5 411625-411626-411629-411629-411630 1 3 0 1 数组=（411625411626411629411630）

我想得到相邻元素数组中的增量，并输出如下

--------------------------------- 1 2 3 4 5 411625-411626-411629-411629-411630 1 3 0 1 --------------------------------- 1 2 3 4 5 411625-411626-411629-411629-411630 1 3 0 1

---

这应该让你开始：

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @array=(411625, 411626, 411629, 411629, 411630);

say join "\t", 1 .. @array;
say join '-', @array;
say join "\t", map $array[$_] - $array[$_ - 1], 1 .. $#array;

---

你的输入和输出是不同的？谢谢你指出了这一点，我已经解决了