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