use List::Util qw( sum );
use List::MoreUtils qw( pairwise );
my $sum = sum pairwise { $a * $b } @weights, @digits;