Select Code to Download

use strict;
use warnings;
...
my $hr  = undef;

map { $hr->{$_} } @{$arr};

map { $hr->{$_} = 1 } @{$arr};