Ошибка в результате работы функции

[Error202]

В массиве @news - 3 записи...
Почему в результате работы функции остается только первая?

Сбой в конструкции  return @news;


sub BlockSub
{


 $sth = $dbh->prepare(qq{ SELECT text FROM news ORDER BY date DESC LIMIT 0 , 3});
 $sth->execute();
 while (my ($text) = $sth->fetchrow_array())
  {
    push(@news,$text);
  };
 $sth->finish();

 return @news;
};

[Error202]

Все, справился... Всем спасибо...

Правда так и не понял почему

return @text;

отличается от

return "@text";

[ondr]

return "@text";
более менее еквивалентно
return join($", @text);

если тебе интересно получить от функции именно массив, то попробуй воспользоваться следующей записью:

Код: [Выделить]


sub func {
    ...
  return @text;
}
my @copy = func();


perldoc perldata --> "Array Joining Delimiter"
perldoc perlsub