use List::MoreUtils qw( pairwise );
@a = pairwise { $a - $b } @a, @b;