sub f {
push@a,eval join'*',1..$_ for@_;@a
}