How do I push a value onto a Perl hash of arrays?

%TEST ; 

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

How do I push values into a hash of arrays without knowing anything about index?

How do I achieve this?