Variables locales en PERL
Las variables locales se pueden declarar en cualquier momento, y de ese modo una sub puede trabajar en ellas sin interferir en las que son usadas por otras sub.
La manera de hacerlo es ésta:
local($variable, $anothervar, @even_an_array);
Esto crea estas nuevas variables en el momento de la ejecución, salvando los valores precedentes de las variables con el mismo nombres (si existe); a continuación, al final del bloque {} en que se habían incluido, estas variables locales son destruidas, y su valor inicial se restablece. Las variables locales se pueden enicializar…