perl 的这个语句是什么意思?
use Lingua::EN::Splitter qw(words);
my $text = "here is Bear,coming downstairs now,bump,bump; "
my $histogram;
$histogram{lc $_}++ for @{words($text)}; #words()函数进行分词,这个语句怎么理解?

#谢谢!!!

[解决办法]
$histogram{lc $_}++ for @{words($text)};

相当于：


foreach ( @{words($text)} ) {
$histogram{lc $_}++;
}