>perl -wMstrict -le
"use List::Util qw(sum);
 use List::MoreUtils qw(pairwise);
 use vars qw($a $b);
 my @change         = (1.15, -0.1, 5.4, 1.03, -0.241);
 my @numberofshares = ( 100,  400, 200,  300,    240);
 my $sum = sum pairwise { $a * $b } @change, @numberofshares;
 print qq{sum == $sum};
"
sum == 1406.16