sub multr {
	my($c, $a) = @_;
	my(@d, @e);
	@d = @$a;
	@e = map { $c * $_ } @d;
	return @e;
}

sub addr {
	my($a, $b) = @_;
	my($n, @c, @d, @e);
	@c = @$a;
	@d = @$b;
	for ($n = 0; $n <= $#c; $n++) {
		$e[$n] = $c[$n] + $d[$n];
	}
	return @e;
}

sub f {
	print "@_\n";
}


$"=",";
@r = addr([1,2,3], [4,5,6]);
print "@r\n";
@r = multr(2, [4,5,6]);
print "@r\n";