18... $a+=$c;$b+=chop$c; 23... map{$a+=$_;$b+=chop}@c; :D Só um detalhe, não é boa prática o uso das variáveis $a e $b fora de um bloco passado como parâmetro à função sort.