Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
my @fred = qw{ 1 3 5 7 9 };
my $fred_total = sum(@fred);
print "The total of  \@fred is $fred_total.\n";

Select or download this
```
The total of  @fred is 25.
```