Wie schiebe ich einen Wert auf einen Perl-Hash von Arrays?

%TEST ; 

... 
for  {
   sub atest
   }
 sub atest {
 ...
    push $TEST { TEST1 }[0] = "some value " 
}

Wie kann ich Werte in einen Hash von Arrays verschieben, ohne etwas über den Index zu wissen?

Wie erreiche ich das?