Example 8-16. examples/arrays/grep_perl.pl

#!/usr/bin/perl
use strict;
use warnings;

my @numbers = (1..30);
my @odd_numbers = grep { $_ % 2 } @numbers;
foreach my $num (@odd_numbers) {
    print "$num\n";
}