#!/usr/bin/perl

use strict;
#use warnings;
use Data::Dumper;

my @array = (1..10);

for my $i ( 0..$#array ){
    if( $array[$i] % 2 == 0 ){
        splice @array,$i,1;
    }
    else{
        print $array[$i],"\n";
    }
}

print "=" x 50, "\n";
@array = (1..10);

for my $i ( reverse 0..$#array ){
    if( $array[$i] % 2 == 0 ){
        splice @array,$i,1;
    }
    else{
        print $array[$i],"\n";
    }
}