use strict;

my $AofA = buildAofA();

display_AofA($AofA);

sub buildAofA {
   my $AofA = [
       [qw( one two three four )],
       [qw( five six seven eight )],
       [qw( nine ten eleven )],
   ];
   return $AofA;
}

sub display_AofA {
   my $AofA = shift;
   foreach my $array (@$AofA) {
      print join(',',@$array), "\n";
   }  
}