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