for(1..100){
print "Fizz" if it_is_divisible_by_3 ($_);
print "Buzz" if it_is_divisible_by_5 ($_);
print "$_" if it_is_not_divisible_by_3_or_5 ($_);
print "\n" # new line!
}
sub it_is_divisible_by_3{
!($_[0]%3)
}
sub it_is_divisible_by_5{
!($_[0]%5)
}
sub it_is_not_divisible_by_3_or_5 {
$_[0]%3 and $_[0]%5
}