# File:	datastr0.pl
# Title: 	Data Structures in Perl. Array (@)
# Author:	Mihaela Malita
#	A simple scalar variable is Hello
#	An array with 3 Hello: Hello Hello Hello
#	Years are 2010, 2011, 2012, 2013
#	Days are Mon Tu Wed Th 	
#	Day 2 is Wed
#	Length of array: Mon Tu Wed Th is 4
$x = 'Hello';
print "A simple scalar variable is $x \n";
@A = ($x,$x,$x);
print "An array with 3 Hello:\t", @A;
@Years = (2010, 2011, 2012, 2013); 
print	"\nYears are @Years";
@Days = ('Mon','Tu','Wed','Th'); # Another way to fill an array
print	"\nDays are @Days"; 	
$i = 2;
print "\nDay $i is $Days[$i]";
$len = @Days;		#find the LENGTH of an array
print "\nLength of array: @Days is $len";
exit;