use strict;
	use warnings;

	my @aoa1 = (				  # define @aoa1 w/ anonymous AoA
			["-","-","-"],
			["-","-","-"],
			["-","-","-"],
		);
	
	# my @aoa2 = (				# define @aoa2 w/ anonymous AoA
	# 		["-","-","-"],
	# 		["-","-","-"],
	# 		["-","-","-"],
	# 	);
	
	my @aoa2 = @aoa1;			 # define @aoa2 w/ named AoA
	
	# $aoa1[1][1] = '@';		  # modify @aoa1
	
	$aoa2[1][1] = '@';			# modify @aoa2
	
	printAoa( "aoa1", @aoa1 );	# print @aoa1
	printAoa( "aoa2", @aoa2 );	# print @aoa2
		
	exit;
	
	sub printAoa {
		my ( $aoaName, @aoa ) = @_;
		my $row;
		my $col;
	
		print "*** $aoaName ***\n";
	
		for $row ( 0 .. 2 ) {
			for $col ( 0 .. 2 ) {
				print "$aoa[$row][$col] ";
			}
			print "\n";
		}
		print "\n";
	}

##</code><code>##

	*** @aoa1 ***
	- - - 
	- - - 
	- - - 
	
	*** @aoa2 ***
	- - - 
	- @ - 
	- - -

##</code><code>##

	*** @aoa1 ***
	- - - 
	- @ - 
	- - - 
	
	*** @aoa2 ***
	- - - 
	- @ - 
	- - -