Select Code to Download

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

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

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