use strict; use warnings; 
use Data::Dumper;

my @test_data = (
    { Tag1 => "1", Tag2 => "a" },
    { Tag1 => "1", Tag2 => "a" },
    { Tag1 => "1", Tag2 => "b" },
    { Tag1 => "1", Tag2 => "c" },
    { Tag1 => "1", Tag2 => "a" },
    { Tag1 => "2", Tag2 => "a" },
    { Tag1 => "2", Tag2 => "d" },
    { Tag1 => "2", Tag2 => "a" },
    { Tag1 => "3"},
    { Tag1 => "sun", Tag2 => "a" },
    { Tag1 => "sun", Tag2 => "a" },
);
my %found;
my @unique;  
for my $grp (@test_data) { 
  my $t1=$grp->{Tag1}//''; 
  my $t2=$grp->{Tag2}//''; 
  next if ($found{$t1}{$t2}); 
  push @unique,$grp; 
  $found{$t1}{$t2}=1; 
  } 

print Dumper \@unique;

##</code><code>##

$VAR1 = [
          {
            'Tag1' => '1',
            'Tag2' => 'a'
          },
          {
            'Tag2' => 'b',
            'Tag1' => '1'
          },
          {
            'Tag1' => '1',
            'Tag2' => 'c'
          },
          {
            'Tag1' => '2',
            'Tag2' => 'a'
          },
          {
            'Tag2' => 'd',
            'Tag1' => '2'
          },
          {
            'Tag1' => '3'
          },
          {
            'Tag1' => 'sun',
            'Tag2' => 'a'
          }
        ];