ハッシュのkeyの数

my $n = keys( %hash );
my $n1 = keys( %{ $hash_ref } );