use strict;
use warnings;

for my $number(1..30){
#    print "$number\n";
    if ($number % 15 == 0){
        print "fizzbuzz\n";
    }elsif($number % 3 == 0 ){
        print "fizz\n";
    }elsif($number % 5 == 0){
        print "buzz\n";
    }else{
        print "$number\n";
    }

}

1
2
fizz
4
buzz
fizz
7
8
fizz
buzz
11
fizz
13
14
fizzbuzz
16
17
fizz
19
buzz
fizz
22
23
fizz
buzz
26
fizz
28
29
fizzbuzz