my @b = @a;
$b[ $_ ] -= $b[ $_+1 ] for 0 .. $#b-1;
pop @b;