foreach $subkey (keys %{$samplehash{$key}})