if ((keys %{$hash{'one'}})) {
    print "Yes\n";
}
else {
    print "No\n";
}