my $text;
for (1..100){
    $text .= 'Fizz' unless $_%3;
    $text .= 'Buzz' unless $_%5;
    $text? print $text : print $_;
    print "\n";
    $text = '';
}