my $foo = {};
print "OK\n" if (scalar %{$foo});