FizzBuzz@perl

gistfile1.pl

#!/usr/local/bin/perl                                                           

use strict;


my $i = 1;

while($i <= 100){

    if($i % 3 == 0 && $i % 5 == 0){

        print "FizzBuzz";
    }


    elsif($i % 3 == 0){

        print "Fizz";

    }

    elsif($i % 5 == 0){

        print "Buzz";

    }

    else{

    print "$i";

    }

    $i++;

    print "\n";

}