# File:	arrayAppend.pl
# Title: 	Arrays in Perl. Append 2 arrays @C =(@A, @B) 
# Author:	Mihaela Malita   
#	A = ann bob cara
#	B = dan erik
#	C = ann bob cara dan erik

@A = ('ann','bob','cara');  # declare array A
printArray("A = ",@A);
@B = ('dan','erik');   		# declare array B
printArray("B = ",@B);
@C = (@A,@B);  				# append arrays
printArray("C = ",@C);
exit;
# subroutine prints each element of an array with TAB then newline
sub printArray {
	my ($text,@Array) = @_;	# takes args from main
	print $text;
	foreach (@Array) {		# for each element of @Array  variable = $_
		print $_, "\t";		# print TAB
	}
	print "\n";
}