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