c:\@Work\Perl\monks\Anonymous Monk>perl -wMstrict -le
"use Data::Dump;
 ;;
 my @MyArrayOfArray =
 (
     [ 'hello', 'sun and fun', 'day' ],
     [  2,      'okay',        'may' ],
     [ 'hello', 'sun and funday'     ],
     [  2,      'okay',        'may' ],
 );
 ;;
 my (%hash, @AoA2);
 ;;
 for (@MyArrayOfArray)
 {
     my $key = join '', @$_;
     push @AoA2, $_ unless exists $hash{ $key };
     ++$hash{ $key };
 }
 ;;
 dd \@AoA2;
"
[["hello", "sun and fun", "day"], [2, "okay", "may"]]

##</code><code>##

c:\@Work\Perl\monks\Anonymous Monk>perl -wMstrict -le
"use Data::Dump;
 ;;
 my @MyArrayOfArray =
 (
     [ 'hello', 'sun and fun', 'day' ],
     [  2,      'okay',        'may' ],
     [ 'hello', 'sun and funday'     ],
     [  2,      'okay',        'may' ],
 );
 ;;
 my (%hash, @AoA2);
 ;;
 for (@MyArrayOfArray)
 {
     my $key = join $;, @$_;
     push @AoA2, $_ unless exists $hash{ $key };
     ++$hash{ $key };
 }
 ;;
 dd \@AoA2;
"
[
  ["hello", "sun and fun", "day"],
  [2, "okay", "may"],
  ["hello", "sun and funday"],
]

##</code><code>##

c:\@Work\Perl\monks\Anonymous Monk>perl -wMstrict -le
"use Data::Dump;
 ;;
 my @MyArrayOfArray = (
   [ 'hello', 'sun and fun', 'day' ],
   [  2,      'okay',        'may' ],
   [ 'hello', 'sun and funday'     ],
   [  2,      'okay',        'may' ],
   );
 ;;
 my @AoA2 = do {
   my %seen;
   grep ! $seen{ join $;, @$_ }++, @MyArrayOfArray;
   };
 ;;
 dd \@AoA2;
"
[
  ["hello", "sun and fun", "day"],
  [2, "okay", "may"],
  ["hello", "sun and funday"],
]