1
2
3
4
5
6
7

use strict;
use warnings;
use List::Util qw(sum);

my @array = ( 1..5 );

print sum ( @array ), $/;

meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!