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