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