问取消引用Perl散列引用

EN

使用我拥有的Text::Ngram

my $c = ngram_counts($text, 3);
my %ct = %($c);

这不起作用(Scalar found where operator expected)。我认为这既不知道我在做什么(仍然不太擅长使用Perl)，又不清楚我从Text::Ngram得到的输出到底是什么。帮助?我只想看看生成的n-gram：

my @keys = sort {$ct{$a} cmp $ct{$b} } keys %ct;
foreach my $k (@keys) {
    print "$k: $ct{$k}\n"
}

编辑:我犯了愚蠢的错误，谢谢大家。