You want the keys of the hashes, then, correct?

foreach my $key (keys %{$hash{test}}){
   print $key."\n";
}
[download]

Update: You'll want to read perlfunc:keys

C-.