my @nums= ( 0 .. 10 ); my @odds= map { $_ % 2 ? $_ : () } @nums; print "@odds"; __END__ 1 3 5 7 9 #### my @nums= ( 0 .. 10 ); my @odds; foreach( @nums ) { next unless $_ % 2; push @odds => $_; } print "@odds"; #### my @nums= ( 0 .. 10 ); my @odds= grep { $_ % 2 } @nums; print "@odds";