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