foreach $key (keys %samplehash)
{
    print "\n$key = {\n";
    foreach $subkey (keys %{$samplehash{$key}})
    {
        print "\t$subkey = $samplehash{$key}{$subkey}";
    }
    print "\n}";
}