[Cascavel-pm] Idioma muito legal!!

[Nelson Ferraz]

Luis Campos de Carvalho wrote:
> #!/usr/bin/perl
> # $top eh a raiz da minha "arvore" n-aria...
> $top = {count => 0};
> $x = $top;
> $x = $x->{$_} ||= {} for qw(a b c d e);
> 
> use Data::Dumper;
> print Dumper $x;
> print Dumper $top;

Wow! :)