sum_of_reactivities.pl

#!/usr/bin/env perl

## Loading modules and initializing variables ##
use strict;
use warnings;

my $x = "0.028931 0.046019 0.001613 0.001432 0.003840 0.001449 0.002805 0.000429 0.000243 0.000000 0.000863 0.000515 0.001007 0.047390 0.025869 0.043199 0.232362 0.034373 0.000000 0.035537 0.023624 0.016754 0.015075 0.000967 0.001032 0.000000 0.000031 0.000059 0.000590 0.000479 0.000000 0.000175 0.000000 0.000459 0.002023 0.092976 0.106962 0.030087 0.013928 0.032694 0.001822 0.000115 0.000000 0.000000 0.000155 0.007411 0.004659 0.000262 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.002411 0.000000 0.002315 0.000000 0.000000 0.000000 0.000000 0.000000 0.000040 0.000000 0.000000 0.000011 0.000000 0.002383 0.000870 0.002805 0.001911 0.000000 0.000661 0.002300 0.000285 0.000411 0.000000 0.000000 0.000000 0.000010 0.000000 0.000000 0.000718 0.000678 0.000797 0.000221 0.000000 0.004423 0.002785 0.000712 0.007451 0.004314 0.001137 0.000708 0.001958 0.000651 0.000620 0.000077 0.000353 0.001701 0.000000 0.000809 0.000640 0.000338 0.010315 0.000401 0.000359 0.002127 0.006434 0.000570 0.002756 0.000133 0.000138 0.000000 0.000000 0.000134 0.000344 0.000539 0.000274 0.001548 0.001474 0.003190 0.001480 0.000190 0.000211 0.000000 0.000027 0.000000 0.000000 0.000000 0.001199 0.001995 0.000285 0.000167 0.003523 0.007561 0.000237 0.000086 0.001298 0.000294 0.000549 0.005631 0.004045 0.004168 0.025897 0.000611 0.000152 0.000031 0.000022 0.001723 0.000124 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000003 0.000000 0.000000 0.000000 0.000000 0.000035 0.000001 0.000001 0.000000 0.000000 0.000002 0.000001 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000";
my @y = split(" ", $x);
my $result = 0;
foreach my $reactivity ( @y ){
    $result += $reactivity
}
print "Summe aller Reaktivitäten: $result";