#!/usr/local/bin/perl
# Jaime Prilusky, 2003

  my @values = ( 10 .. 29);

  my ($total,$count) = sum(@values);
  print "$count values, total = $total\n";

sub sum {
  my(@data) = @_;
  my ($sum,$count,$value);
  foreach $value (@data) {
    $sum += $value;
    $count++;
  }
  return ($sum,$count);
}