use strict; my $n = ; my $plus = ; my $v = ; my @pluslist = split(/ /, $plus, 10**4); my $count = 0; foreach my $element (@pluslist) { $count += $element; } $count -= $v; print $count."\n";