Select Code to Download

 %hash1 = {1=>{air->'5',water->'6'},
           2=>{orange->'2',air->'4',soup->'10'}
           };
     %hash2 = {$filename} = \%hash1;

for $a (sort keys %mstrToken)
{
...
    }
     #end of file processing for loop
}