# File:	arrayRead.pl
# Title: 	Arrays in Perl. Array (@)
# Author:	Mihaela Malita   
# 			Read 3 elements and build an Array
#	1 Enter element? a
#	2 Enter element? b
#	3 Enter element? c
#	Array is abc
@A =  ();  			#declare empty array
for (1..3) {
	print $_," Enter element? ";
	$x = <STDIN>;	#read a char/int
	chop($x);		#remove newline
	@A = (@A,$x);
}
print "Array is ", @A, "\n"; 
####### Enter elements till first 0 ############
@A =  ();  			#declare empty array
$x = 1;				#give a different value for X
while ($x  !=  0) {	#enter elements till first 0
	print " Enter integer? ";
	$x = <STDIN>;	#read an int
	chop($x);		#remove newline
	@A = (@A,$x);	# append (add) 
}
print "Array is ", @A, "\n"; 
exit;