@array = (1,2,3);

print "SUM: ", sum($#array);

sub sum {
  if ($_[0] == 0) {
    return $array[0];
  }
  return $array[$_[0]] + sum($_[0]-1);
}

#note it's not efficient