use strict;
use warnings;

my @table = (1, 2, 4, 6, 10);
my @diffs;

for my $index (0 .. $#table - 1) {
    $diffs[$index] = $table[$index + 1] - $table[$index];
}

print "@diffs\n";