my ($first_key) = keys %{$samplehash{$key}};
    print "\n $key = " . $first_key;