my @even_from_0_to_20 = map  { $_*2 }        0 .. 10;
my @even_from_0_to_10 = grep { is_even($_) } 0 .. 10;
sub is_even {
    my $val = shift;
    return 0 == $val % 2;
}