array of hash - perl

Shell Programming and Scripting
1

How do I get the unique hashes from an array of hashes?

@ar1 = ( {a=>1,b=>2}, {c=>3,d=>4},{a=>1,b=>2});

I need :

@ar2 = ( {a=>1,b=>2}, {c=>3,d=>4});

Thanks.

2 
perl -MData::Dumper -le'
  @ar1 = ( 
    {
      a => 1,
      b => 2
      }, 
    {
      c => 3,
      d => 4
      },
    { 
      a => 1,
      b => 2 
      }
      );

  for (@ar1) {
    push @ar2, $_ unless 
      $c{ join "\0", sort %$_ }++  
    }
  
  print Dumper \@ar2;
    '
3

Thanks. It worked.