On 7/10/06, Adriano Ferreira <a.r.ferreira em gmail.com> wrote: > Em Perl 6, isto será mais fácil com hiper-operadores. Mas por enquanto > você pode tentar algo como: > > @vars = \($a, $b); > @vals = split /:/, $c; > $$_ += shift @vals for @vars; > > Bem, você não pediu uma solução, né? s/solução/solução bonita/