Subroutine Perl

  1. Home
  2. Perl
  3. Subroutine
  4. Passing a range of value to a subroutine
#!/usr/bin/perl -w
use strict;
total(1, 7, 5, 4, 9);
total(1...10);
sub total {
    my $total = 0;
    $total += $_ foreach @_;
    print "The total is $total\n";
}