use strict;
use warnings;
use diagnostics;

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

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