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"; }