1 2 3 4 5
my @array1=qw(4.3 0.2 7 2.2 0.2 2.4); my @array2=qw(2.2 0.6 5 2.1 1.3 3.2); my @diff = map {$array1[$_] - $array2[$_]} (0..$#array1); print join(' ', @diff), "\n";
1
2.1 -0.4 2 0.1 -1.1 -0.8