keys in scalar context returns the number of elements in the resulting list. Whether this is magic in the keys function, or it's returning an "array" instead of a "list", I have no idea.

>perl -e"%x=qw/foo bar 1 2 3 4 baz bar/; print scalar keys %x"
4
[download]