#!/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 unless $odd1 % 2 and $odd2 % 2;
($odd1, $odd2) = ($odd2, $odd1) if $odd1 > $odd2;

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