Como empurro um valor para um hash de arrays Perl?

%TEST ; 

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

Como faço para inserir valores em um hash de matrizes sem saber nada sobre o índice?

Como faço para conseguir isso?