how to implement odd numbers in a new array?

Question

I want to output only the odd numbers from an array with the numbers from 1-100 in a new array. I have no idea how to do this.

use strict;
use warnings; 

my @zahlen = (1..100);

foreach my $zahlen (@zahlen){
    if ($zahlen % 2) {
        print "$zahlen ist ungerade\n";
    } else {
        print "$zahlen ist gerade\n";
    }
}

Answer 1

Just create new array and add the odd numbers

use strict;
use warnings;


my @zahlen = (1..100);
my @ungerade;
my $i = 0;

foreach my $zahlen (@zahlen){
    if ($zahlen % 2){
        $ungerade[$i] = $zahlen;
        $i = $i + 1;
    }

}

print "@ungerade"

Answer 2

You can also do it with grep instead of a for-loop:

use strict;
use warnings; 

my @zahlen = (1..100);
my @odds = grep { $_ % 2 == 1 } @zahlen;