[Perl] Agregando datos a un arreglo usando classes (URGE AYUDA)

[Luis Medrano Zaldivar]

Lista,

tengo esto en mi script:

my $loco= empleado::sueldo->nuevo('Gustavo perez',
                                     'Manager, Web Development',
                                     '111-1111',
                                     50000);
my $incongruente= empleado::sueldo->nuevo('Sven Abrams',
                                     'Manager',
                                     '111-1111',
                                     50000);
my $atenido = empleado::sueldo->nuevo('alfredo rodriguez',
                                     'jefe',
                                     '111-1111',
                                     80000);

Donde mando llamar la classe empleado y subrutina nuevo. y bueno todo jala de pelos.....ahora lo que necesito es agregar a esos datos lo siguiente quien es el jefe de quien.

para esto tengo esta ciclo:

for my $emp ($incongruente, $loco) {
    $atenido ->set_report($emp);
}

Pero mi pregunta es como le puedo hacer para que la subrutina "set_report" pueda anexar esa informacion??...

Por favor ayudeme esto me esta volviendo loco.

Luis


___________________________________________________
Todito Card, internet fácil y sin compromisos.
Todito Ilimitado, internet rápido, seguro y económico.