Select Code to Download

use Data::Dumper;
my @array = ( 0, 1, 2, 3, 4, 5 );
...

print Dumper \%uniq;

$VAR1 = {
          '4' => undef,
...
          '2' => undef,
          '5' => undef
        };

use Data::Dumper;
my %uniq;
...
@uniq{ @aoa[ 1 ... $#aoa ]->[-1] } = ();
print Dumper \%uniq;

$VAR1 = {
          '5' => undef
        };