#! /usr/bin/perl
print &add(@ARGV) , "\n";
print &add(1..5) ,"\n" ;
print &add(1,3,5), "\n";

sub add {
	local ($sum);
	$sum = 0;
	foreach $_ (@_) { 
		$sum += $_;
        }
        return $sum;
}