Select Code to Download

%hash = map { getkey($_) => $_ } @array;

@anon_temp = ();
foreach (@array) {
   push(@anon_temp, getkey($_), $_);
}
%hash = @anon_temp;

%hash = ();
foreach (@array) {
   $hash{getkey($_)} = $_;
}