#!/usr/bin/perl
$i=1;
while ($i<=20) {
 if ($i % 3 == 0 and $i % 5 == 0) {print "FizzBuzz\n";}
 elsif ($i % 3 == 0) {print "Fizz\n";}
 elsif ($i % 5 == 0) {print "Buzz\n";}
 else {print "$i\n";}
 $i = $i+1;
}