prvky perl poľa Odčítanie - polia, perl

Mám pole, ako je uvedené nižšie

pole = (411625,411626,411629,411629,411630)

Chcem získať deltu v rade priľahlých prvkov a výstupu, ako je uvedené nižšie

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

odpovede:

To by malo začať:

#!/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;