[Perl] Creacion de variables

[=?iso-8859-1?q?Eduardo=20Martinez?=]

Hola a todos.

Bueno, directo al grano..
Tengo un archivo con una lista de nombres, p. ej.

luis
alberto
raul
pedro
arturo

Desde un programa en Perl, necesito abrir este archivo y crear un array
asociativo con el nombre de cada uno de los nombres que aparecen en el
archivo, es decir que debo tener los arreglos: %luis, %alberto, %raul,
%pedro, %arturo
Y se deben crear variables para c/u de los nombres que aparezcan en el
archivo, de tal manera que si en el futuro se agregan mas nombres, el
programa cree nuevas variables para cada nombre agregado.
Intente hacer algo como:

while(<archivo>) {
    $'$_'{'$_'}="algun valor";
}

Pero no funciona.
¿Alguien sabe como hacer esto?


=====
"Do or Do Not, there is no try"
-Yoda. The Empire Strikes Back

_______________________________________________________________
Do You Yahoo!?
Yahoo! Messenger
Comunicación instantánea gratis con tu gente.
http://messenger.yahoo.es