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