for(1 .. 100) {         
    print if $_ < 50; 
}

##</code><code>##

for(grep {$_ < 50} (1 .. 100)) {
    print;
}

##</code><code>##

$array_ref = [1 .. 10000];
for(@$array_ref) {
    print;
}

##</code><code>##

$array_ref = [1 .. 10000];
for($i=0; $_ = $array_ref->[$i] ;$i++) {
    print;
}