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

##</code><code>##

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