chomp(my $num = ); foreach (1..$num) { print "Fizz" if ($_%3 == 0); print "Buzz" if ($_%5 == 0); print $_ if ($_%3 != 0 && $_%5 != 0); print "\n"; }