Select Code to Download

#!/usr/bin/perl

...

my @unique = map eval, uniq map { pp $_ } @test_data;
dd \@unique;

[
  { Tag1 => 1, Tag2 => "a" },
...
  { Tag1 => 3 },
  { Tag1 => "sun", Tag2 => "a" },
]