#!/usr/bin/perl

use warnings;
use strict;

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);

if ($odd1 % 2 == 0 || $odd2 % 2 == 0) {
    exit;
}
my @odds;
my $i;
my $step = 2;

if ($odd1 <= $odd2) {
    for ($i = $odd1; $i <= $odd2;$i += $step) {
        push(@odds, $i);
    }
} else {
    for ($i = $odd1; $i >= $odd2;$i -= $step) {
        push(@odds, $i);
    }
}

print "numbers: ";
foreach $i (@odds) {
    print "$i ";
}
print "\n";