Select Code to Download

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

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