use strict; use warnings;

print "please enter two odd numbers \n";
    print "enter first odd number:";
    my $odd1 = <STDIN>;
    chomp ($odd1);    
print "enter second odd number:";
    my $odd2 = <STDIN>;
    chomp ($odd2);

exit if (!($odd1 %2) or !($odd2 %2));
my @odds;
my $step;

if ($odd1 < $odd2) {
        $step= 2 ;
} else {
        $step =-2;
}
my $n=0;
for (my $i=$odd1; $i != $odd2;$i=$i+$step)  {
        $odds[$n] = $i;
        $n=$n+1;        
}
$odds[$n]=my $i;
print "numbers:@odds\n";