foreach $TCdRom (@{$cds->{TCdRom}}){
    printf("%s \n", $TCdRom->{HaId};
    ...
    ...
}