use Data::Dumper;

use strict;
use warnings;

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


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

my @foo = ($ipa..$ipb);
print Dumper(@foo);