#!/usr/bin/perl print +($_%3==0&&'fizz').($_%5==0&&'buzz')||$_,"\n" for 1 .. 60;