in reply to Elegantly map fizz to buzz

Look Ma, no modules :)

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

print fzbz(10);;
33

print fzbz(100);;
2418

print fzbz(1000);;
234168

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
In the absence of evidence, opinion is indistinguishable from prejudice.

In Section Seekers of Perl Wisdom