@a = factorial(5); $a[0] = 120
@a = factorial(5,3,10); $a[0..2] = (120,6,3628800) #### sub f { push@a,eval join'*',1..$_ for@_;@a }