здравствуйте.

вопрос такой: из perl обращаюсь к DB2 запрос проходит ответ дает. но вместо списка почему то возвращает только последнюю строку.

пример такой:
$select2=qq"SELECT GOSS, COUNT(*)
FROM LMVB.INTUR_VIEW
WHERE TIME>=2007080100000 AND TIME<=2007081023591
GROUP BY GOSS";
$per="";
$sth = $dbh->prepare($select2);
$sth->execute();
while (@row=$sth->fetchrow_array) {
$proba=$per.qq"<tr><td>@row[0]</td><td>@row[1]</td></tr>\n";
}
$sth->finish();
$dbh->disconnect();

в чем может быть проблема? и вообще это связано с DB2 или c Perl. подскажите как решить эту проблему. с другими базами всегда эта конструкция выдавала список нормально.