"$x = GetCdRomDrives($cds);" 
instead of 
"$x = GetCdRomDrives(\$cds);"

##</code><code>##

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