while (<IN>)
{
   my @list1 = split ' ', <IN>;
   my @list2 = split ' ', <IN>;
   my @diff  = pairwise { $b - $a } @list2, @list1;
}