for my $i (1..100){
    next unless $r % 2;

for (0..49){
    my $i = $_ * 2 + 1;

for my $i ( grep {$_ %2} (0..99 ) ){