my $n;
foreach(1 .. 1_000_000_000){
    $n++ if $_ % 2 == 0;
}