Please perl monks help me with infinite loop for this scenario..

I'd be willing to write the loop, if you'd be willing to write one for me :)

Print the first one hundred numbers. If number is divisible by three without remainder print Beans, by five print Cake, by fifteen print BeansCake.