#Hi First practice for PR class
use warnings ;
use strict ;

print 'First Number > ' ;
chomp(my $A = <STDIN>) ;

print 'Second Number > ' ;
chomp(my $B = <STDIN>) ;

my @range = ($A .. $B) ;
my $rndn = $range[rand(@range)] ;
my @points ;
my $counter = 0 ;
while ($counter <= 100) {
	$rndn ;
	push @{$points[$counter]},$rndn ;
	$counter++ ;
}

print @points, "\n" ;