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

##</code><code>##

%hash = (1 => value's list,
         2 => values's list,
         n => value's list)