Select Code to Download

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

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)];

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

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