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