Select Code to Download

>perl -wMstrict -le
"my @change         = (1.15, -0.1, 5.4, 1.03, 1.15, -0.241);
...
"
5 keys in hash (oops...)
sum == 1866.16 (?)

>perl -wMstrict -le
"use List::Util qw(sum);
...
 print qq{sum == $sum};
"
sum == 1406.16