#!/usr/bin/perl

use v5.12;
use warnings;

say "please enter two odd numbers";
print "enter first odd number: ";
chomp (my $odd1 = <STDIN>);
print "enter second odd number: ";
chomp (my $odd2 = <STDIN>);
exit if $odd1 % 2 == 0 or $odd2 % 2 == 0; # exit unless $odd1 % 2 and $odd2 % 2;

my $step = $odd1 < $odd2 ? 2 : -2;
my (@odds);
for (my $i = $odd1; $i <= $odd2; $i += $step) {push(@odds, $i)};
say "numbers: @odds";