sub fzbz{ my$n; $_%3 && $_%5 or $n+=$_ for 1..pop; $n };;

print fzbz(10);;
33

print fzbz(100);;
2418

print fzbz(1000);;
234168