Select Code to Download

use Data::Dumper;
my %uniq;
for my $file (@ar1)
...

print Dumper \%uniq;
my @values = values %uniq;