Select Code to Download

use strict;
use warnings;

...
     my @values3 = map {$values1[$_] - $values2[$_]} 0..$#values1;
     print $out "@values3 \n";
}

foo bar baz
43 41 67

foo bar baz
41 2 60

Some new header to be determined
2 39 7