Perl: Associative arrays

[DevLip]

Is it possible to extract the keys from a multi-dimensional associative array??

Here's the problem, I wrote a parser that dynamically fills an array with keys/values from a file. so I end up with:
$theArray{key1, key2, key3} = value;

but now after the fact I want to access these elements by looping trough the key values ie:

foreach $key1(??)
  foreach $key2(??)
    foreach $key3(??)

any ideas?

thanks,
Devan