perl 的这个语句是什么意思?解决思路

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 $_}++;
}