Hash / objekter

Hej!

Jeg har en datastruktur(struct) som skal indeholde nogen givne oplysninger. Hvert strukt skal forstille en elektronisk komponent, og derfor skal alle mine structs kunne gemmes i en hash/array.

Hvordan gøres dette? Jeg har prøvet følgende:
------------------------------------
use Class::Struct;

struct HMD =>
{
    Comp_Name => '$',
    Part_Name => '$',
    Part_Type => '$',
    X_Posn => '$',
    Y_Posn => '$',
    Angle => '$',
    Board_Side => '$',
};

$Component = HMD->new();
$Component->Comp_Name("Kondensator");

%ComponentsTable = ('1' => $Component);

print $ComponentsTable{"1"}->Comp_Name;

------------------------------------------

Alt dette virker, uden problemer. Jeg har prøvet på at gøre udlæsninger lidt dynamisk, ved at ligge det ind i en for løkke. Desværre er det som om at min løkke ikke kan finde mine keys.

Har prøvet på at print mine keys ud, for at se om den overhovedet finder noget. Men uden resultat. Det undre mig at jeg kan tilgå min data, hvis jeg selv peger 100% på det, men ikke hvis jeg vil gå igennem min hash med keys.