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