#!/usr/bin/perl
say sum grep not $_ % 2, 1,, 100