ﾊｯｼｭのｷｰの数を表示したくて
print ($_=(keys(%a)));
のようにしたんですが、もっとｼﾝﾌﾟﾙな方法ありますか?