use strict;
use warnings;

my @weights = (1,2,7,8);
my @digits = (2,3,4);
my $sum;

for (0..$#weights) {
    no warnings;
    $sum += $weights[$_] * $digits[$_];
}

print $sum;