Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...

33.490 33.839 32.059 32.072 33.425 33.349 
34.709