The best way I can think of would be to use an ordinary loop construct. Behold:

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

There are probably others ways (this is Perl after all :).

Update: Sorry, misread the question.