32 characters if you delete that last ';'...

sub f{map{eval join"*",1..$_}@_}
[download]

Update: Sorry it's the same as japhy... nothing new.

BobiOne KenoBi ;)