Em 22/07/10 12:08, Pinguim Azul escreveu: > @a=(1,2,3); @b=(4,5,6); > @c=map{$a[$_]+$b[$_]}(0..($x=@a)-1); > print "@c" > Reflita... Você usou o recurso de equivalência em "($a=@a)-1" ... Poderia ser "@a - 1" ... -Thiago Rondon