#!/usr/local/bin/perl
use feature qw(say);
use List::Util qw(sum);
say sum grep not $_ % 2, 1,, 100