HASH dynamisch befüllen

[Frank]

Hallo,
ich habe ein kleines Problem. Bin Perl - Anfänger und hab zu folgendem Thema nichts passendes gefunden.
Ich will ein Hash dynamisch mit Schlüssel und Werten aus der Datenbank erzeugen.

Folgende Code habe ich geschrieben:
Ich vermute mal das ich irgendwas bei der Zuweisung  im Hash falsch mache.

Wär super, wenn mir jemand einen tipp geben könnte. Danke

$zeiger_auf_array  = $sth->fetchall_arrayref;

foreach $himbeere(@$zeiger_auf_array){

print "$$himbeere[0] => [$$himbeere[1],$$himbeere[2],$$himbeere[3]]";

my $hash_ref = {
  $$himbeere[0] => [$$himbeere[1],$$himbeere[2],$$himbeere[3]],

};

}

print"\n";
print "$hash_ref->{'TEST'}";