# File:	arrayRandSub.pl
# Title: 	Arrays in Perl. Array (@) rand n -> 0-n float, less than n
# Author:	Mihaela Malita   
# 			Make an Array with Many random ints between Min and Max
#RUN:		Enter size array? 5
#			Enter Max integer? 6
#			Enter Min integer? 1
#			Array is 32566
print "Enter size array? ";
$many = <STDIN>; chop($many);
print "Enter Max integer? ";
$max = <STDIN>; chop($max);
print "Enter Min integer? ";
$min = <STDIN>; chop($min);
@B = makeArray();  # $Many, $Max, $Min are global variables
print "Array is ", @B, "\n"; 
exit;

sub makeArray {
my @A = ();  				    #declare local empty array
for (1..$many) {				#do this $Many times
	$x = int(rand $max) + $min;	#generate random int: 1-6
	push(@A,$x);				#add new element to your array
}
return @A;
}