my $a = 1;

while($a < 101 ) {
        
        if($a % 15 == 0) {
                print("fizzbuzz" . "\n" );
        } elsif($a % 3 == 0) {
                print("fizz"."\n");
        }elsif($a % 5 == 0){
                print("buzz". "\n" );
        }else{
                 print ($a . "\n" );
        }
        $a = $a +1;

}