use strict;
use warnings;

print <<"END" for 1..100;
@{[$_%3?():"Fizz",$_%5?():"Buzz",$_%5&&$_%3?$_:()]}
END

##</code><code>##

use strict;
use warnings;

print <<"END" for 1..100;
@{[  ($_ % 2) ? 'Odd' : 'Even'  ]}
END