#!/usr/bin/perl

use strict;
use warnings;

my @c = (1 .. 10000000);

my @d = map( $_%2, @c);

my @e = grep(/0/, @d);

exit(0);