#!/usr/bin/perl -w
use strict;

##</code><code>##

my @FruitAoA;
push @FruitAoA, [qw(Fruit Apple Red)];
push @FruitAoA, [qw(Fruit Bananna Yellow)];
push @FruitAoA, [qw(Fruit Orange Orange)];
push @FruitAoA, [qw(Fruit Kiwi Green)];

##</code><code>##

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

##</code><code>##

     for my $i ( 0 .. $#FruitAoA )