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