The easiest way is to have the keys function evaluated in scalar context:

%hash = ('foo'=>1, 'bar'=>3);
$count = keys %hash;
[download]