>>567
perldoc -f keys くらい調べてくれよ。

> (In scalar context, returns the number of keys.)