selection =>perl FizzBuzz

FizzBuzz.pl

#!/use/bin/perl

use warnings;
use strict;
use 5.010;


my $i = 0;

while($i <= 100) {
        if ($i % 15 == 0){
                say"FizzBuzz";
        }elsif($i % 5 == 0){
                say"Buzz";
        }elsif($i % 3 == 0){
                say"Fizz";
        }else{
                say"$i";
        }

        $i++;

}