#!/usr/bin/perl

sub arrayadd {
	local(*a, *b) = @_;
	local($max) = $#a > $#b ? $#a : $#b;
	local(@sum);
	for (local($i) = 0; $i <= $max; $i++) {
		$sum[$i] = $a[$i] + $b[$i];
	}
	@sum;
}

@foo = (1,2,3);
@bar = (10,20,30);
@totals = &arrayadd(*foo, *bar);
