Select Code to Download

die+map{(Fizz)[$_%3].(Buzz)[$_%5]||$_}1..100

use strict;
use warnings;
...
        divisible_by_5($_)?  "buzz":
        $_;
}