#! /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;