Code:

 #!/usr/bin/perl 
 #
 #
 #
 
 use strict;
 
 sub main {
 	print "\n";
 	print "---printing output of makeAofA---\n";
 	my @arrayPointer = makeAofA();
 	print "\n";
 	
 	print "--now passing the array between sub's---\n";
 	print "the value of the array is:\n @arrayPointer \n\n";
 	
 	print "---printing output of echoAofA---\n";
 	echoAofA(@arrayPointer);
 	print "\n";
 }
 sub makeAofA {
 	my @file;
 	
 	for (my $i = 0; $i < 5; $i++ ) {
 		
 		my $a = "a$i";
 		my $b = "b$i";
 		my $c = "c$i";
 
 		my @line = ($a, $b, $c);
 		print @line, "\n";
 		
 		push (@file, [ @line ]);
 	}
 	return(@file);
 }
 sub echoAofA {
 	my @file = @_;
 
 	for my $lineRef (@file) {
 		print join(" : ", @$lineRef), "\n";
 	}
 }
 
 main();
 
 __END__

Command Output: