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

##</code><code>##

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

##</code><code>##

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