use strict;
use warnings;

my @array;
push @array, (int rand 50) + 1 for 1 .. 20;

print qq{@array\n};

my @keep = ();
for my $index (0 .. $#array)
{
    push @keep, $index if $array[$index] % 2;
}

@array = @array[@keep];

print qq{@array\n};

##</code><code>##

45 19 34 31 5 36 1 38 48 2 1 9 6 9 28 1 23 19 23 41
45 19 31 5 1 1 9 9 1 23 19 23 41