use List::MoreUtils qw(pairwise);

my @one = split /,/, '1,2,3,4,5,6';
my @two = split /,/, '2,9,8,4,7,6';

our ($a, $b);  # keep warnings happy
my $result = join ',', pairwise { $a - $b } @one, @two;