for (my $i=0;$i<@a;++$i){
    $b[$i] = $a[$i] - $a[$i+1];
}

##</code><code>##

@b = map{$_ - $_+1}, @a;