my $total_number = ; chomp ($total_number); my @numbers; for (my $count = 0; $count<$total_number; $count++){ my $number = ; chomp ($number); push @numbers, $number; } #print "@numbers\n"; my $ans = 0; $ans += $_ for @numbers; print "$ans\n";