Select Code to Download

Apple  Grape  100
Ginger Fry    200
...
Ginger Banana 800
Ginger Fry    150
Ginger Banana 45

Apple  Grape  180
Ginger Fry    350
Ginger Banana 845

#! /usr/bin/perl
use strict;
...
#my @new =shift (@AoA);
#print $AoA[1][0];
#print Dumper \@AoA;