[PERL] Asignaci'on m'ultiple de variables