use strict;
use warnings;

my @change = (1.15, -0.1, 5.4, 1.03, -0.241);
my @numberofshares = (100, 400, 200, 300, 240);

my $sum=0;
while (my $k=pop @change) {
  $sum+=$k*pop @numberofshares;
}
print $sum;