Select Code to Download

use strict; use warnings; 
use Data::Dumper;
...
  } 

print Dumper \@unique;

$VAR1 = [
          {
...
            'Tag2' => 'a'
          }
        ];