Objectattribute dynamisch ansprechen

[KebdnK]

Hallo Leute,
ich möchte von einem Objekt in Perl ein Attribut dynamisch ansprechen.
Folgender Code soll als Beispiel dienen.

  
  
my %test = ("Attr1" => 1, "Attr2" => 2, "Attr3" => 3);  
  
foreach(keys(%test)) {  
  my $key = $_;  
  
  print $object->{$key};  
}  
  

Ich hoffe, ihr könnt euch ungefähr vorstellen, was ich meine. Ich hab in der richtigen Anwendung einen Hash mit ca 20 Einträgen, wobei die Keys auch gleichzeitig Attribute eines Objekts sind. Da ich jedes Attribut auf einen bestimmten Wert hin überprüfen muss, wäre es elegant, wenn ein solches Konstrukt mit foreach gehen würde.

Danke im voraus.

KebdnK