From a basic REPL script:

%foo; scalar(%foo)
0
%foo = (a=>1, b=>2, c=>3); scalar(%foo)
3/8
%foo = undef; scalar(%foo);
1/8
%foo = (); scalar(%foo);
0
[download]

Does that help?