($AoA) = @_;

##</code><code>##

&PrintArray2(\@FruitArray);

##</code><code>##

#!/usr/local/bin/perl -w

use strict;

#Load Array
my @FruitAoA = ([qw/Fruit Apple Red/],
                [qw/Fruit Bananna Yellow/],
                [qw/Fruit Orange Orange/],
                [qw/Fruit Kiwi Green/]);

&PrintArray;
&PrintArray2(\@FruitAoA);

#Print Array with Array Name Hardcoded
sub PrintArray {
  for my $i ( 0 .. $#FruitAoA ) {
    for my $j ( 0 .. $#{ $FruitAoA[$i] } ) {
      print "$FruitAoA[$i][$j]\n";
    }
  }
}

#Trying to Print Array by Reference
sub PrintArray2 {
  my ($AoA) = @_;
  for my $i ( 0 .. $#{$AoA} ) {
    for my $j ( 0 .. $#{ $AoA->[$i] } ) {
      print "$AoA->[$i][$j]\n";
    }
  }
}