Как ускорить отработку сценария perl по SQL запросу?

[Гость]

У меня такой вопрос.
Есть некая БД Оракл. Из нее я делаю SQL запрос:
 my %logs;
 $sth = $dbh->prepare("select to_char(begin_time,\'DD.MM.YYYY\') from accounting where user_name=\'$user\' and to_char(begin_time,\'DD.MM.YYYY\') like \'31.08.2002\'");
 $sth->execute;
 while (@results=$sth->fetchrow)
 {$logs{$results[0]}="";}
 $sth->finish;
 my @logs=reverse(sort(%logs));

print "@logs";

Все хорошо, все отрабатывает. Но есть одно но.
Если этот запрос поместитьт в цикл и послать раз 30 то он будет отрабатываться около 1 минуты. Как существенно ускорить отработку скhипта?

Заранее спасибо.

[Меняздесьдавнонет]

это же очевидно.
запросить данные за один раз и потом уже их обрабатывать в цикле