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