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

##</code><code>##

Apple  Grape  180
Ginger Fry    350
Ginger Banana 845

##</code><code>##

#! /usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my @AoA;
open (my $fh ,"<","C:/excl7.txt") or die "Can't open the file";
while (<$fh>){
	#chomp ($line);
	push @AoA,[split];


}
foreach my $i (@AoA){
#** how do i compare the array data?...
	if (@{$i
	print "@$i\n";
}
#my @new =shift (@AoA);
#print $AoA[1][0];
#print Dumper \@AoA;