#!/usr/bin/perl -w
use strict;
use warnings;

print "Enter first Number: ";
my $ipa = <STDIN>;


print "Enter last Number: ";
my $ipb = <STDIN>;


my $ipc = $ipa +1;
while ($ipc <= $ipb) {
$ipc;
print $ipc;
} 
#
my @range = ($ipa, $ipb);
if ($ipc < $ipb){
        @range = ($ipa, $ipb);
        unshift(@range, $ipc);
    } else    {
        print $ipc;
    }
sub ascend 
{
    $ipa = $ipb;
}

my @rl = sort ascend @range;
print join(",",@rl);