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

my $uAoA = uniqAoA(\@AoA);
print Dumper $uAoA;

sub uniqAoA
{
    my $array = shift;

    my %res;

    foreach my $ar (@{$array})
    {
      my $str = join (",",@{$ar});
      $res{$str} = 1;
    }

   my @kys = keys(%res);
   my @final;

    foreach(@kys)
    {
       my @a = split(",",$_);
       push @final, [ @a ];
    }

   return \@final;
}