my($a,$b,@r,$c)=@_;for my$i(0..$#$a){$$c[$i+$_]+=$$a[$i]*$$b[$_]for 0..$#$b}@r?p($c,@r):$c