%a = {} ;
$a{"KEY1"}->{"VALUE1"}->{key} = value11 ;
$a{"KEY1"}->{"VALUE2"}->{key} = value21 ;

$a{"KEY2"}->{"VALUE1"}->{key} = value11 ;
$a{"KEY2"}->{"VALUE2"}->{key} = value21 ;

##</code><code>##

1. foreach $source (keys %allData)
2. {
3.    foreach $dest ( keys $allData{$source} )
4.    {
5.        #access the values
6.    }
7. }