use strict;
use warnings;
use diagnostics;

my $arr = [1,2,3];
my $hr  = undef;

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

##</code><code>##

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