#!/usr/bin/perl
print "enter the 1st number: \n";
$number1 = <STDIN>;
print "enter 2nd number: \n";
$number2 = <STDIN>;
@list=($number1..$number2);
print "@list\n";