use strict; my $N = ; my $t = ""; for (my $i = 1; $i <= $N; ++$i) { if ($i % 3 == 0) { if ($i % 5 == 0) { $t = "FizzBuzz"; } else { $t = "Fizz"; } } elsif ($i % 5 == 0) { $t = "Buzz"; } else { $t = $i; } print "$t\n"; }