for my $Key(keys %Hashofsubshashes){
    for my $i(@ {$Hashofsubshashes{$Key}}){
         print "$Key->&{$Hashofsubshashes{$Key}->{$i}}\n";
    }
  }