foreach my $key (keys %hash)
{
     foreach my $subkey (keys %{$hash{$key}})
     {
          print "$key,$subkey => $hash{$key}{$subkey}\n";
     }
}