pasar un Array a un Hash ??

[sesperanto]

Tengo una Array construido así:

Código:

@adn = (123123, "aaddadadadada", 123124,"addaddadaddaadad",123125,
"adadadaaadddadad");

Teniendo eso, yo quería construir un Hash, de forma que me quedara:

Código:

%hash = {
123123 => "aaddadadadada",
123124 => "addaddadaddaadad",
123125 => "adadadaaadddadad"
}

He intentado transformar el Array a una cadena con todos los elementos separados por un espacio, con la función eq.

Con la función join transformo todo en una linea separado de un espacio:

Código:

$texto = join(" ",@adn);

quedando algo así

Código:

123123 aaddadadadada 123124 addaddadaddaadad 123125 adadadaaadddadad"

Y ahora utilizando la función eq, se debería meter en forma de Hash, pero no me deja hacer esto:

Código:

%hash = qw ($texto );

Pero esto si que me deja hacerlo...

Código:

%hash = qw (123123, "aaddadadadada",  123124, "addaddadaddaadad", 123125, 
"adadadaaadddadad");

pero no me sirve, porque tengo todo dentro de una variable

COMO DEBERÍA HACERLO PARA QUE FUNCIONARA????

GRACIAS!!

[sesperanto]

Añado información:

He encontrado esto:

Código:

my @a = (1, 2, 3, 4, 5, 6);
my %h = map { $_ => $_ } @a;

Pero me queda así: :(

Código:

%h = {
1 => 1;
2 => 2;
3 => 3;
4 => 4;
5 => 5;
6 => 6;
}

Yo quiero quedase así: :)

Código:

%h = {
1 => 2;
3 => 4;
5 => 6;
}

[jferrero]

Código Perl:

%hash = @adn;