1.19 d2.pl

$a = sum(3,4,5);

print "$a\n";

sub sum {
  my $sum = shift @_;
  if (@_) {
     $sum += sum(@_);
  }
  return $sum;
}