foreach (keys %{$dades->[0]}) { $feines[0] = $dades->[0]->{$_}->{'client_id'}; $feines[1] = $dades->[0]->{$_}->{'treb_id'}; $feines[2] = $dades->[0]->{$_}->{'zona_nom'}; $feines[3] = $dades->[0]->{$_}->{'feina_desc'}; $feines[4] = $dades->[0]->{$_}->{'feina_tipus'}; $feines[5] = $dades->[0]->{$_}->{'status'}; my $row = $form->{'feines'}->append(@feines); my $valor = $dades->[0]->{$_}->{'feina_id'}; my $tmp = $valor; # If I don't do this, then get_row_data returns an UNKNOWN ref afterwards... weird $form->{'feines'}->set_row_data($row, $tmp); print "Fila $row, valor $tmp\n"; } [...] # $event contains the number of the CList row that has been selected, let's say 1. $glob_rowid = $form->{'feines'}->get_row_data($event); print "Row $event; Data: $glob_rowid"; print Dumper $glob_rowid;