Array Perl

  1. Home
  2. Perl
  3. Array
  4. Totalling a List
#!/usr/bin/perl
use warnings;
use strict;
total(1, 107, 105, 114, 9);
total(1...100);
sub total {
    my $total = 0;
    $total += $_ for @_;
    print "The total is $total\n";
}