#file: add_any.pl
#desc: multiple function args and lexical scope

sub add_any {
  my ($sum);
  $sum = 0;
  foreach $param (@_) {
     $sum += $param;
  }
  return $sum;
}

print "3 args:".add_any(2, 3, 4)."\n";
print "1 arg:".add_any(1)."\n";
print "0 args:".add_any()."\n";
print "non num:".add_any("asdf", 3, 4)."\n";