Ahora podemos construir objetos de esas clases::
DB<4> x $a = Tutu->new(nombre=>'Juan', apellidos=>[qw(Gonzalez Hernandez)]) 0 Tutu=ARRAY(0x84eb024) 0 'Juan' 1 ARRAY(0x8474e5c) 0 'Gonzalez' 1 'Hernandez' DB<5> x $b = Foo->new(a=>[1..3], s=>'hola', h=>{x=>1, y=>2}, c=>$a) 0 Foo=HASH(0x850524c) 'Foo::a' => ARRAY(0x84eb4e0) 0 1 1 2 2 3 'Foo::c' => Tutu=ARRAY(0x84eb024) 0 'Juan' 1 ARRAY(0x8474e5c) 0 'Gonzalez' 1 'Hernandez' 'Foo::h' => HASH(0x851bed0) 'x' => 1 'y' => 2 'Foo::s' => 'hola'
Casiano Rodríguez León