for $i (1..100)
{
   $message="";
   if($i%3==0)
   {
       $message.="Fizz";
   }
   if($i%5==0)
   {
       $message.="Buzz";
   }
   if($message eq "")
   {
       $message=$i;
   }
   print $message."\n";
}