Or the slightly simplistic version that uses a precomputed LCM of 15:

print map $_%15?($_%5?($_%3?"$_\n":"fizz\n"):"buzz\n"):"fizzbuzz\n",(1
+..100);
[download]

update: typo corrected - thx liverpole